Top 10k strings from ZX-Review 1996.07-08 (1996)(Inforkom)(ru).fdi in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [FDI] (TOSEC-v2006-06-06) /
Back to the directory listing
62
41
21
21
20 *********************************
19 ;
18 --------------------------------------------------
18 ;
13 ADD HL,HL
13 RET
13
12 UUUUUUUUUUUUUUUUUUU
12 ;
12
12
11
10 =============================================================================
10 ;******************
10
9 ;-------------------------
9 ;*******************
9 ADD A,A
9 INC HL
8 RR D
8 RLA
8 ;
8
7 10 ORG 40000
7 EXX
7 RET
7
7
7
7
6 RRCA
6 RRCA
6 RLA
6 LD (DE),A
6 INC HL
5 p$p$p$p$pHpHpHpHplplplp
5 ;-------------------------- ;
5 Spectrum'
5 AY-3-8912.
5 (0...255)
5 OUT (#FE),A
5 INC HL
5 AND A
5 EX AF,AF' ;
5 CP 255 ;
5 ...
5 OR C
5 LD A,B
5 INC DE
5 DEC BC
5 ---------
5
5
5
4 perewod9~isel9iz9
4 208,208,208,208
4 11,11,11,11
4 ---------------------------------------------------
4 AY-3-8912
4 XOR A
4 RST 16 ;
4 RET C ;
4 PUSH HL ;
4 LD L,A ;
4 LD B,#08 ;
4 LD A,C ;
4 LD (HL),A
4 INC HL
4 EX AF,AF' ;
4 ;
4 RET
4 LD A,(INF)
4 LD A,(HL)
4 RST 16
4 LD A,(HL)
4
4
3 UUUUUUUUUUU
3 FFFFFFFFFFFFFFFFFFFF
3 ;--------------------------
3 ;**********************
3 *******************************************************************************
3 ******************************************************************************
3 *****************************************************************************
3 *************************************************************************
3 "" ""
3 ZX-Spectrum
3 ZX-SPECTRUM
3 TRYDIS KEY.
3 PATROL DROID'
3 ADD HL,HL'
3 23773 (#5CDD).
3 "FILE 1"
3 SBC HL,DE
3 RST 16
3 RET C
3 RET
3 PUSH HL
3 POP HL
3 LD H,A
3 EX DE,HL
3 ADD HL,HL
3 ADD HL,DE ;
3 SRL L
3 SRA A
3 SLA A
3 RET Z ;
3 RET ;
3 POP AF
3 POP HL ;
3 LDIR
3 LD D,A
3 LD I,A
3 LD C,A ;
3 LD A,(DE) ;
3 LD A,#C3
3 LD (#FFF5),HL
3 LD (#FFF4),A
3 IM2
3 EX DE,HL ;
3 AND #07 ;
3 ADD HL,HL ;
3 ADD HL,HL ;
3 ADD A,(HL) ;
3 ; A=
3 XOR A
3 LDIR
3 LD HL,BUFFER ;
3 LD L,(HL)
3 LD A,H
3 CALL PP1
3 RRCA
3 LD A,(YC)
3 LD (DE),A
3 INC A
3 INC DE
3 IN A,(#FE)
3 DEFB #DD
3 CALL PAUSE
3 CALL KANAL
3 BIT 0,A
3 ...
3 1
3 .
3 ;
3
3
2 ~astx9fajla9
2 zapisatx9sektor
2 zapisatx9dorovku
2 vp$p$p$p$pHpHpHpHplplplp
2 s~itatx9dorovku
2 stro~n=9bukwy
2 sistemnoj9dorovke
2 sektorow>>
2 podtwerdite9
2 perezapisatx
2 p@p@p@p@p@p@p@p
2 p$p.p8pBpLpVp`pjptp~p
2 nowye_dorovka
2 najti9fajl
2 hhhhhhhhhhho`
2 g$="Step":
2 g$="Cursor":
2 _zamena9diska
2 _wwod9komand
2 _wozwrat9w9
2 _stranica9wpered
2 _stranica9nazad
2 _perekl`~enie9zagl=
2 _perekl`~enie9revimow9
2 _informaciq
2 ^islo9NE9bolx{e
2 Zapustitx9fajl
2 Zapisatx9izmeneniq
2 Zapisatx9dorovku
2 Zapisatx99sektor
2 Wyjti9iz9procedury
2 Wy9uwereny9
2 Wstawxte99prinima`}ij9dis
2 Wstawxte99kopiruemyj99dis
2 Vp$p$p$p$pHpHpHpHplplplp
2 S~itatx99dorovku
2 Swobodno>>>>>
2 Stertyh>>>>>>>>
2 Steretx9mark
2 S=_Peterburg
2 Perwaq9swobodnaq9dorovka>>
2 Pereme}enie9kursora_klawi{ami9kursora
2 Pereimenowat
2 POCMOTP KAPTOTEK
2 Ob?em9fajla9iz
2 O9[9I9B9K9
2 Nowaq9mask
2 Nesankcionirowannaq99kopi
2 Ne9TOT9disk99
2 Na~alo_dor=
2 Na9diske9NET9takogo9fajla
2 Mnogo9sektoro
2 Mnogo9fajlo
2 Mark=9fajlow
2 MODE_3 OR #00 ;
2 MODE_2 OR L ;OR,XOR
2 LD H,#16
2 LD I,A
2 LD HL,#EA89
2 LD HL,#E860
2 LD A,#C3
2 LD (#FFF5),HL
2 LD (#FFF4),A
2 Kopirowatx9s9
2 Kontrolx9diskow9
2 Konec9_dor=
2 Fajlow>>>>>>>>>
2 Fajlow>>>>>
2 Fajl99su}estwuet
2 Dlina9999fajla>>
2 Disk-Doctor
2 CONVER Comander
2 CONQUESTADOR
2 Adres9zagruzki>>
2 @=Kowalewskij
2 ;--------------------
2 ;*************************
2 ;************************
2 ;***********************
2 ;*****************
2 ;"sprAjtoB"
2 ;"formAtE rEdAktorA"
2 ; (C) Savchenko Vladislav, 1996
2 9zapisatx99katalog
2 9stertyh>>>
2 9prerwatx9operaci
2 9ignorirowatx9fajl
2 9Konec9programmy9
2 9C48: FF EA 4D 9C 23 0D 20 F5 :FB
2 9@=Kowalewskij
2 999swobodnoj9zone
2 90 LET t=t+(f-30146)*a:NEXT f
2 80 POKE f,a
2 70 IF a>255 THEN GO TO 100
2 6p$p$p$p$pHpHpHpHplplplp
2 60 FOR f=f TO 1e9: READ a
2 530 INC HL
2 500 POP DE
2 50 IF t<>1392299 THEN STOP
2 420 DATA 0,237,176,195,0,91
2 410 DATA 33,211,255,1,30
2 400 DATA 241,201,17,0,91
2 40 LET t=t+(f-29990)*a:NEXT f
2 40 LET T=T+(F-29990)*A:NEXT F
2 390 DATA 40,5,221,117,0
2 380 DATA 58,0,91,254,33
2 370 DATA 124,254,255,40,10
2 360 DATA 14,12,24,245,221
2 350 DATA 96,54,82,50,17
2 340 DATA 0,195,0,255,1
2 330 DATA 35,114,209,49,0
2 320 DATA 255,54,205,35,115
2 310 DATA 237,176,209,33,88
2 300 DATA 255,1,100,0,213
2 30 READ a: POKE f,a
2 30 READ A: POKE F,A
2 290 DATA 171,117,213,17,175
2 280 DATA 132,117,213,233,33
2 270 DATA 14,55,237,66,17
2 260 DATA 125,0,9,54,201
2 256128 48:
2 250 DATA 70,42,75,92,1
2 240 DATA 75,75,92,205,0
2 230 DATA 201,33,78,202,237
2 22,12,8,148,149
2 22,11,8,146,147
2 22,10,8,17,2,16,7
2 210 DATA 237,176,235,54,32
2 200 DATA 0,70,1,28,0
2 20 FOR f=3e4 TO 30155
2 20 LD IX,(23563)
2 1995 Special for INFORCOM
2 190 DATA 1,33,0,9,17
2 180 DATA 38,93,34,75,92
2 170 DATA 48,238,42,205,117
2 160 DATA 255,55,205,86,5
2 150 DATA 204,117,22,1,62
2 140 DATA 33,203,92,237,91
2 130 DATA 117,50,191,117,221
2 120 DATA 58,206,117,50,179
2 110 RANDOMIZE USR 3e4
2 110 LD (TEMP),HL
2 100 IF t<>a THEN STOP
2 100 JR NZ,S1
2 10 CLEAR 29999: LET t=0
2 10 ENT $
2 ,22528+256
2 ,16384+2048
2 ,," 3A
2 , A RLC HL'
2 ++++++++++
2 *REFLECTION
2 ****************************************************************************
2 ***************************************************************************
2 ) -
2 )
2 'True Vid.'
2 'Inv. Vid.'
2 'Graphics'
2 'Caps Losk'
2 #"a\"c\"e\!
2 "S\"K\"U\#"Y\
2 """"""""""""""""""""
2 WHAT'S LAB,
2 WATCH THE STONES
2 TRYDIS INTERIOR
2 TRAPPED?
2 Spectrum-
2 Scorpion'
2 STROBE
2 SAMPLE EDITOR'
2 RANDOMIZE USR 0.
2 P/V <- IFF2
2 MASTER DROID'
2 Enchanter'
2 ED,5B,F4,5C LD DE,(#5CF4) ;
2 COPY-COPY
2 CD,13,3D CALL #3D13 ;
2 C BUSY
2 90 S2 DEC C
2 80 INC HL
2 70 JP PE,S2
2 60 AND 255
2 50 PLOT 127,87
2 50 ADD HL,HL
2 40 S1 LD A,H
2 30 LD C,16
2 23773 (#5CD0)
2 "pulse.w$"
2 "Power Play"
2 "FILE 2".
2 "FILE 2" (
2 "FILE 2"
2 HEX'e),
2 60 LOOP2 PUSH BC
2 30 PRN1 LD DE,22527
2 20 CALL INIT
2 10 ORG 30000
2 | | | | |
2 ********************************************************************
2 1 2 3 4 5
2 RLC D
2 R -
2 ADD HL,BC
2 * LOAD (
2 ADR3 -
2 ADR2 -
2 ADR1 -
2 RR L
2 PUSH DE
2 PUSH BC
2 POP DE
2 POP BC
2 LD E,(HL)
2 LD D,(HL) ;
2 LD A,E
2 LD A,(HL)
2 LD A,#18 ;
2 LD (HL),A
2 LD A,H
2 JR Start
2 END
2 XOR H ;
2 SUB #08 ; (
2 SRL H ;
2 RRCA ;
2 RRA ;
2 RET ;
2 PUSH AF
2 PUSH DE
2 PUSH AF ;
2 POP HL
2 POP BC
2 POP AF
2 ORG 40000
2 LD IY,#5C3A ;
2 LD B,(IX+2) ;
2 LD A,(OPC1) ;
2 LD A,(OPC) ;
2 LD A,(HL) ;
2 LD A,(HL)
2 LD (OPC1),A
2 LD (ADRES),IY ;
2 LD L,A ;
2 LD HL,SHIFT ;
2 LD HL,CHAR ;
2 LD HL,#F498
2 LD HL,#F28C
2 LD E,A ;
2 LD E,8 ;
2 LD C,A ;
2 LD C,A
2 LD A,L ;
2 LD A,D ;
2 LD A,(HL) ;
2 LD (INCR),HL ;
2 LD (DE),A ;
2 LD (#F101),HL
2 LD (#F100),A
2 JR C,PROPOPC ;
2 JR NZ,L2
2 INC HL
2 INC HL ;
2 INC H
2 INC A ;
2 INC (HL)
2 IM 1 ;
2 HALT
2 EX AF,AF' ;
2 DEC C ;
2 CP #08 ;
2 CALL NZ,PL
2 CALL NZ,MIN
2 CALL COND ;
2 CALL NEXT
2 CALL MOVE ;
2 AND #07 ;
2 ADD IX,DE
2 ADD HL,HL ;-------------
2 ADD A,A ;
2 ADD A,#20 ;
2 ;40-
2 ; B=
2 ..
2 |
2 RL H
2 RET Z
2 POP HL
2 POP BC
2 Original idea........50%
2 LD DE,(ADRES) ;
2 LD C,07
2 LD HL,ADR1
2 LD HL,A
2 LD DE,ADR2
2 LD BC,ADR3
2 LD B,#8
2 LD (NUM),A
2 LD (INF),A
2 LD (DNUM),A
2 LD (DINF),A
2 LD (BC),A
2 JR Z,CONT
2 JR NZ,BEGIN
2 INC BC
2 INC A
2 DEC DE
2 Coding...............50%
2 CP 8
2 CP 1
2 CALL #3D13
2 CALL #3D13
2 CALL P1
2 PUSH HL
2 PUSH DE
2 POP HL
2 ORG 40000
2 LD L,A
2 LD A,(NUM)
2 LD (YC),A
2 LD (XC),A
2 LD (NUM),A
2 LD (MODE),A
2 LD A,E
2 JR Z,OPR
2 JR OPR
2 DJNZ LOOP
2 DEC A
2 DEC C
2 CALL #5A9
2 ADD IX,BC
2 ADD HL,DE ;
2 ADD A,D
2 8
2 4.
2 2
2 CALL #3D13 ;
2 IOA7
2 IOA6
2 IOA5
2 IOA4
2 IOA3
2 IOA2
2 IOA1
2 ;
2 (
2 ; (
2
2
1 }e smotrite (i slu{ae
1 ||xxttppllhhdd``
1 |ksta klassaq
1 |<<D8xDDDDD<
1 zywa` dalx}e: w |tom izwra{
1 zy=zy+y(s):
1 zx=zx+x(s):
1 za malym - k
1 zApisAtx sprAjty"
1 zApisAtx fAjl B"
1 zAgruzitx fAjl B"
1 zAdAniE oknA. pri udEr-"
1 yy=yx-zy*w(n):
1 yxvVe#&@%A
1 yx=y-zy*y(v0):
1 yx=y-zy*(y(v0)+y(u8)):
1 yx=(a2*n+s*a3)*n+a1:
1 yx=(a1*n-s*a3)*n+a2
1 yr=(yy-y)*
1 y=yx-y(u9)
1 y=k+y-y(u9):
1 y+b<(yp-py+b)*d
1 y*Gj"bj:Zj2dj:[j2ej
1 xy=x+zx*x(v0):
1 xy=x+zx*(x(v0)+x(u8)):
1 xx=xy+zx*v(n):
1 xx=xx+k*i:
1 xx=xx+(n=u8):
1 xr=(xx-x)*
1 xco txmy ', qwlq`}u`
1 x=xy+x(u9):
1 x=j+x+x(u9):
1 x= y= D
1 x+(xp-px+b)*c>w3
1 x(t)+a7-b:
1 x$=g$+",y":
1 x$=g$+",x":
1 x$=g$+",r":
1 x$=g$+",l":
1 x$="no. of pixels":
1 x$="no. of chars":
1 x$="new attr":
1 x$="change":
1 x$="Vert. Radius":
1 x$="Turn Angle":
1 x$="Start Angle":
1 x$="Space":
1 x$="Rotation":
1 x$="Radius":
1 x$="Pic No.":
1 x$="Pic Mode (p,a,c or d)":
1 x$="No. to save":
1 x$="Mark":
1 x$="Horiz. Radius":
1 x$="Arc Angle":
1 ww=yx*a1-xy*a3:
1 ww=-i*r-j:
1 ww-a1/u8+j:
1 written in TASM, ofcoz).
1 wgfVUDDDCDDTUffvw
1 w1+" saved":
1 w1+" is the wrong type":
1 w$(z)=" ":
1 w$(a)=" ":
1 w |tojpr@r
1 vv=xy*a2-yx*a3:
1 v9,u6;k$(en):
1 v8,v1;bx;",";
1 v4,u5;k$(ed);
1 v4,n0;q$(b+
1 v3,w0;q$(u9+k);
1 v3,v8;"r,l =";r;",";l;
1 v3,s;"I P B F ";
1 v3,n0;k$(s-
1 v2,v0;"COLOUR";
1 v2,u6;x;",";y;
1 v1,v3;"0. Main Menu":
1 v1+s*i,v3;i;". Load ";l$(i):
1 v0,v5;"SAVE";
1 v0,v5;"LOAD":
1 v0,m4;j$(p*p1+b);
1 v(n),w(n):
1 ustAnoBkA zAdErvki"
1 ustAnoBkA proiz-"
1 ustAnoBkA poslEdo-"
1 ustAnoBkA fonA"
1 udAlitx sprAjt"
1 u&u2u"u4ypi|
1 tut nedawno poqwilasx odna
1 t,v3;"1. ";a$;
1 t,u6;ss;",";tt;
1 start LD C,#13
1 stErEtx sprAjt"
1 slEduqwij sprAjt"
1 skroll kuda-
1 screen window
1 s,m4;j$(p*p1+b);
1 rolling sprAjtA"
1 rolling oknA"
1 rEvim rEdAKtorA"
1 rAbotA s sprAjtom"
1 rAbotA s oknAmi"
1 rAbotA s fAjlAmi"
1 r=r-x(v2)*
1 r#r-r7rArKrUr_rirsr}r
1 r r r6r&x:r8r r`rfr
1 qsa`}aq. o
1 q zakolebal
1 q wse e{e demiurg ASH i wy0
1 push pendulum,
1 proisXodit"
1 programmistP#
1 problema w tom,!
1 priwetstwu
1 primEhAnia:":
1 prEdyduwij sprAjt"
1 pppppppppp
1 pozwonitx psihiat
1 pokAzAtx sprAjt s mAskoj"
1 pokAz sprAjtA"
1 pod uglom ply
1 pe^atlenie ^to ot
1 pNpNp`p`prprpJ
1 p0p0q(p@q8
1 p,a,c or d
1 p*p3p<pH@Q
1 p*p0p<pHpN
1 p(p(pPp(pPpPpxpPpxpxp
1 p$p,p8p@@L
1 p p(p8p@pHpPp`phpppxp
1 p (0xp5p=pMpUp] e
1 ottuda ws` skanirowannu` IBM'
1 otrAvEniE OknA"
1 otrAvEniE Bokrug gori-"
1 otmEnA izmEnEnij"
1 osnoBnoE mEnq":
1 on docking range"
1 okonhAniE"
1 o2]j2^j2aj2`j<2
1 o,m3;y;" "
1 o,a;j$(p*p1+b);" ";x;" ";
1 o rEdAktorE"
1 nyE punkty poslE zAdAnia oknA"
1 nameless*Gj
1 nameless
1 na SPACE#%
1 n=s*a1+s*a3+m:
1 n0,v8;"step=";aa;",";bb;
1 n0,v3;"2. ";:
1 n+b,v5;x(n);
1 n+b,v5;x(n):
1 n+b,v5;d$;
1 n+b,u5;y(n):
1 n+b,m3;e$;
1 my tAkvE movEm sdElAtx dla BAs "
1 mulxtiplikAcia"
1 mul1 RRA
1 mul0 JR NC,mul1
1 mnem^ RET
1 mjgda^[XUROMJGDA?<9742/-+(&$"
1 migAniE (Bkl/Bykl)"
1 majka kalinina, to
1 m4+"0123":
1 m3,v6;n;",";
1 m3,v6;"colour":
1 m3,v3;"3. ";b$
1 m3,n0;q$(v0+
1 m+" characters":
1 m 'LORD OF THE RINGS' BY TOLKIEN. knig
1 lu~}e ih. VA
1 loading".)
1 lenxkaq, ~umuru
1 left rightup down whole
1 l=x(t)+a7-b:
1 l=x(t)+a7-b
1 l=o(s*z+r+u8+
1 l,r,u or d
1 kopiroBAniE sprAjtA"
1 kopiroBAniE OknA"
1 klABiwi uprABlEnia"
1 kAtAlog diskA"
1 k=d*d/c/c-b:
1 k+xx+yy+xy+c+yx+h+oc+d+i+j+m+l=n:
1 izmEnEniE rEvimA"
1 ispolxzowanP1
1 iniciAlizAcia"
1 iniciAlizAcia movEt proizBoditx-"
1 informaciq dl
1 inBErsia sprAjtA"
1 inBErsia oknA"
1 in every way imaginable...")
1 imq kotoroj
1 i$=g$+" ":
1 i$="Please try and save it again":
1 i$="Please try again":
1 i$="Please rewind the tape to verify":
1 i$="Maximum "+
1 i$="Invert
1 i$="Do you wish to overwrite (
1 h$=h$+","+u$(n+b):
1 h$=h$+" ("+
1 h$=c$+" has not been verified":
1 h$="window/screen
1 h$="print string":
1 h$="filename":
1 h$="Store is being used for "+l$(m):
1 h$="Enter "+h$:
1 h$="Currently":
1 h$="Completed":
1 graphics software
1 grafiku i muzy
1 goworim o muzyke0B
1 g$=g$+l$(n):
1 g$="block size":
1 g$="Swap Colour":
1 g$="Set Print":
1 g$="Set Colour":
1 g$="Set "+g$:
1 g$="Scroll"
1 g$="Scroll Attr":
1 g$="Save "
1 g$="Reverse":
1 g$="Print block":
1 g$="Pic No.":
1 g$="Pic Mode":
1 g$="Merge":
1 g$="Mark/Space":
1 g$="Magcopy":
1 g$="Load ":
1 g$="Last Plot":
1 g$="Ellipse":
1 g$="Delete ":
1 g$="Cover":
1 g$="Coords. "+
1 g$="Circle":
1 g$="Change Colour":
1 g$="Brush":
1 for IS-DOS (
1 ffnnvvfqHt
1 fReimport ZX AS
1 f$CODE a,6144
1 ext: DEFM "sp "
1 eras=eras-1
1 eras=eras-(a$(i,1
1 eras=eras+(a$(i,1
1 ee, A SAM teper
1 ece on kru
1 demiurg ASH
1 d=yp-py+b:
1 d.16 kw.73%q
1 cBEt hErnil"
1 cBEt fonA"
1 c>(w3-x)/t
1 c=xp-px+b:
1 boot BU(U()
1 blagodar`Q
1 b,n0;"mode:";j$(p+b);
1 b,a;d$;d$;d$:
1 b*&]"-a!/a"&]>
1 b$=b$+"n)"
1 arkostx (Bkl/Bykl)"
1 addr^ JP NZ,Exit ;
1 a=a+s*(k-1
1 a3=vv*ww*k:
1 a2=ww*ww*k+b:
1 a1=vv*vv*k+b:
1 a,v6;j$(p+b);
1 a,a;" ";d$;d$;
1 a$=s$(s)+t$(n):
1 a$=g$+" too thin":
1 a$=a$+" too big":
1 a$=a$+" stored":
1 a$=a$+" copied":
1 a$=a$+" "+
1 a$="top right"
1 a$="no room"
1 a$="lower left":
1 a$="copy "+s$(s):
1 a$="01234":
1 a$="0123"+
1 a$(x)=a$(y):
1 a$(x)=a$(y)
1 a teperx q budu goworitx bez
1 ``ddhhllppttxx||
1 `LOOKBOOTB
1 _______________________________________________________________________
1 ]exp.tx C
1 Yp$p$p$p$pHpHpHpHplplplp
1 YOUR POSSESIONS BEFORE".
1 YC DEFB 0
1 Y. NOT BAD,YEAH! )
1 Y (IX+12) (IX+1)
1 XY EQU #0000 ;
1 XPC DEFB 0
1 XC DEFB 0
1 X OR CS+X=DIR SHOW
1 X (IX+4) (IX+0)
1 WOULD ONLY
1 WIZARD (THE)
1 WITH AXE).
1 WINDOW MENU":
1 WINDIoW....
1 WHICH EMERGE NEAR A LONG ROOM, A WELL..."
1 WDO YOU REALLY
1 WANT TO QUIT?
1 WANT TO GET ON IN LIFE".
1 W AND R WORKS WITH CURRENT
1 Vector 10-57-47
1 VIEW.........
1 VA PRINT).
1 V 3.02R 512K
1 V 3.02R 128K
1 UP CALL PRINT
1 Thumper- "
1 TYPE LD HL,(FONT) ;
1 TURBO-BOAT SIMULATOR
1 TRYDIS INTERIOR.
1 TOP (wpro~em esli ubra
1 TOILETS -
1 TO VELSOFT AND JMS!_H
1 TI-CHRIST,!
1 THE S P R I T E M E N T
1 THE LYRA II MEGAPEMO (by Vasillyev Anton).
1 THE FUCKINGSA
1 THE FLINSTONES 128 ( by Vasilyev Anton ), DISSYG 128 (by Koprov Eugeny),
1 THANKS TA/
1 TEN BY ME,
1 TBL_OR DB #00,#7F,#3F,#1F,#0F,#07,#03,#01
1 TAU CETI (128)
1 TARGET RENEGADE
1 TAPE ERROR
1 TABLE2 X,Y,L,255 ;
1 TABLE1 X,Y,L,X1,Y1,L1, ... ,255 ;
1 TABLE1 DEFB 255 ;
1 TABLE DEFW 0 ;
1 TAB INC HL
1 T","K-KOCM L-
1 Studio, ZX-Format
1 Spectrum BASIC'
1 Size Y :000
1 Size X :000
1 Shockers - "
1 Sh (IX+44) (IX+5)
1 Set values
1 Set device
1 Scale Inc.
1 Sam 10.96 $
1 SYM_COL EQU 235 ;
1 SYMBOL LD B,(HL) ;
1 SURE DELETE?
1 SUPER SEYMOUR
1 SUPER ROBIN HOOD
1 STUDIO COMPILER
1 STIR XOR A
1 START1 LD (TABLE),HL ;
1 START1 LD HL,BUFFER ;
1 START LD HL,(CRDS) ;
1 START LD HL ,#5C00 ;
1 START LD DE,#5CC8 ;
1 START LD A,(BC)
1 START LD HL,FILENAME ;
1 SS+W <> -
1 SS+Q <= -
1 SS+I -
1 SS+Enter -
1 SS+E >= -
1 SP_XOR EQU #AE
1 SP_PUT EQU #00
1 SP_OR EQU #B6
1 SP_MIRROR LD A,(HL)
1 SP_AND EQU #A6
1 SPRITEMENT 4.3 BY VAG 04.07.93 FILE: T: S: A: (V)IEW(X)CAT(B)ACK(N)EW(SSF)EDIT(W)RITE(R)EAD(S)AVE(L)OAD(12)<->
1 SPRITE.....
1 SPRITE MENU":
1 SPRITE EDITOR v2.1
1 SPRITE EDITOR V2.1
1 SPAGHETTY WESTERN
1 SOUND TRACKER COMPILATION OF POW
1 SOLDIER OF LIGHT
1 SM'a. WARNING!!
1 SHIFT2 RRC (HL)
1 SHIFT1 PUSH BC ;
1 SHIFT0 LD A,C ;
1 SHIFT DEFB #00 ; -
1 SHADOW WARRIOR (128)
1 SH DEFB 10
1 SET VALUES
1 SET DEVICE..
1 SET DELAY....
1 SCREEN1 LD A,(HL) ;
1 SCREEN LD HL,(PLACE) ;
1 SAVE FILE:
1 SAVE FILE...
1 SAVE DATA...
1 SA software productions :
1 S.T.PRO 1996 COMPILATION OF SANDMAN BY DEMIURG
1 S PART YOU MAY SEE SC
1 S 'MANOWAR',
1 S & MUSIC W
1 Rtrick.txC
1 Rotation =
1 Rot. Inc. =
1 Reset 1 to 8
1 Reset 0 to 9
1 Rechtona 23-82-15
1 ROW INC DE ;
1 ROPES TOGETHER.
1 ROBOT ESCAPE
1 RIDLERS DEN
1 RETURN JP...(RET) ;
1 RESTORES THE DISK
1 RESET
1 RECEPTION.
1 REBEL STAR 1
1 REAR LASER -
1 RE-READ TEXT
1 RAW RECRUIT
1 RAPID FIRE
1 QWERTPOIUYASDFG
1 QUIT.......
1 QQQQQQQQQQQQQQQQQQQQ
1 QO CALL SCRBF
1 QAQAQAQAQAQAQAQAQAQA
1 QAOPSPC/KEMPSTON
1 QAOP,SP ili kEMPSTON
1 Psylon 49-12-03
1 Professional tetris, Death World, King's, Valley & others...
1 Press no. of option
1 Plasma Beam -
1 Picture ElementsUDGs Screen g
1 Picture no.=
1 Phalba 81-70-23
1 P\=]Z(boot BU(U()
1 PTLB_2 LD A,(DE)
1 PTBL_5 LD DE,9
1 PTBL_4 INC HL
1 PTBL_3 POP DE
1 PTBL_1 PUSH AF
1 PTBL LD (MODE),A
1 PROPOPC LD DE,3 ;
1 PROGRAMMED DRAW PARAMETERS
1 PROGRAM LD HL,TEXT ;
1 PROGRAM LD HL,TABLE1 ;
1 PROD LD C,H
1 PRINTADD COMM DIFF
1 PRINT DECIMAL
1 PRINT LD A,(HL) ;
1 PRINT LD (IY+87),3
1 PRESS GREEN
1 PRESS ANY KEY":
1 PRESS A KEY
1 PR LD A,C
1 PP2 LD A,(DNUM)
1 PP1 PUSH BC
1 POWER BOAT
1 POKE 56879,52: PRINT USR 48000
1 POBKA -4":
1 PNEREDIBLE SHRINKING FIREMAN
1 PLACE DEFW #4000 ; -
1 PL/M, FORTH, FORTRAN, MIBOL, LISP, PROLOG, 4
1 PIRAMID, OPAL, MAP, CHEST, CORONET, FIGURINE, DUBLOONS, DIAMONDS,
1 PINNACLES
1 PIDERGROUP),
1 PEEK 23670: POKE (ADR + 2), PEEK 23671.
1 PAUSE LD B,5
1 PARTS OF SPRITEMENT:
1 PAMM B KAPTOTEKE ";n:
1 P2 PUSH BC
1 P1 LD A,(DINF)
1 P/V <- IFF2 (
1 [email protected]
1 OhistkA OknA":
1 Official distributer
1 OVERWRITE ?
1 OUT OF THIS WORLD
1 OTHOCTb n/216d. n=";q:
1 OR C [4
1 OPR1 LD A,#FD
1 OPR CALL PRINT
1 OPC1 NOP ;
1 OPC NOP ;
1 OOM-METAL GROUP. YOU MU
1 OHOK(OT 3
1 OFF ON TO FROM UNSETSET
1 OF SCREEN (UPPER 16 LINES).
1 O HOMEPA?";N1
1 O CTPOK B CTPAH
1 Np = RANDOMIZE Fn S(X,Y,Len,N,Col)
1 Normal order
1 Neutron Beam -
1 NUM DEFB 0
1 NUM DEFB 0
1 NORMAL ORDER.
1 NO GRAPHICS
1 NIPPER
1 NIFTI - LIFTI
1 NEXT LD HL,PLACE ;
1 NENTER TO RETURN
1 NAVY MOVES 1
1 N$="" THEN LET NEXT=49166: GO TO
1 Mysto 22-42-46
1 Master Assembler v1.0 for 128k Speccy only!
1 MY PROGS (1-3),
1 MUSIC-MACKER!
1 MSX, NASCOM, Oric 1,
1 MS-DOS v.1.0
1 MPEX ALBUM (6).MUSIC WHICH
1 MOVE1 LD A,(DE) ;
1 MOVE SPEEDS :
1 MOVE PUSH HL ;
1 MOVE LD HL,(PLACE) ;
1 MORTAL KOMBAT.
1 MODE_5 OR (HL) ;OR, XOR
1 MODE_4 LD A,(IX+0) ;
1 MODE_1 OR H ;OR, XOR
1 MODE_0 LD H,#00 ;H=0
1 MODE NOP
1 MODE DEC A
1 MNB!@#$%_)('&
1 MM HALT
1 MISTAKE.TXT.
1 MIR_2 INC HL
1 MIR_1 INC HL
1 MIAMI COBRA GT
1 METAL ARMY
1 MET LD (DE),A
1 MAY SEE EXCEPTIONAL EFFECT.
1 MAX IWAMOs!
1 MASK2 SRL C
1 MASK1 SCF ;
1 MASK LD B,C ;
1 MARTIANOIDS
1 MADE PUSH BC ;
1 M$="3563568568:68:;8:;8:68563525"
1 Listing 3.
1 Listing 2.
1 Listing 1.
1 Len (IX+20) (IX+2)
1 LP_DEF RRC B ;"
1 LPTR2 RR H ;
1 LPTR1 RRA ;
1 LPPS4 LD A,(DE) ;
1 LPPS3 PUSH BC ;
1 LPPS2 LD L,(IX+0);L=
1 LPPS1 PUSH BC ;
1 LOOP2 LD B,#08 ;
1 LOOP2 RR L
1 LOOP2 RL (HL)
1 LOOP1 RL (HL) ;
1 LOOP1 RR L
1 LOOP1 LD B,32 ;
1 LOOP LD A,1 ;
1 LOOP LD A,1 ;
1 LOOP PUSH BC
1 LOOP CP 0
1 LOADFILE CALL LOADER ;
1 LOADER DI
1 LOAD FILE...
1 LOAD A$CODE ADR
1 LOAD LD DE,(#5CEB) ;
1 LIVINGSTONE 2
1 LISTEN IT.
1 LINE:0000 COL:00 F:L TEXT:0000/FFFF BUF:0000/4000 FILE:........
1 LIGHTING (
1 LF3D9 INC DE
1 LF3D2 PUSH HL ;
1 LF3AE LD A,(HL)
1 LF3A8 INC HL ;
1 LEONARDO error trap.
1 LEAR 39999: RANDOMIZE USR 15619:
1 LD HL,#0900
1 LD C,#13
1 LD BC,#F0DB
1 LD A,(#5CDD)
1 LD HL, 30000 ;
1 LD A,B [4
1 LD A,#16
1 LD A,#09
1 LD (#FE6A),HL
1 LD (#FE69),A
1 LD (#C971),HL
1 LD (#C970),A
1 LASER PACK-1)
1 LARGE DEFW NN
1 LAR DEFW NN
1 LAB1 LD (HL),E
1 L5 INC HL ;
1 L4 DEC HL
1 L4 JR L5
1 L3_0: EXX
1 L3 RR (HL) ;VAR2
1 L3 LD E,1
1 L2_0: LD B,C
1 L2 LD BC,4112
1 L2 LD HL,(BUFF)
1 L2 INC (HL)
1 L2 LD HL,(#0000)
1 L1_1: EXX
1 L1_0: LD E,B
1 L1^ INC HL
1 L1: EX DE,HL
1 L1 CALL #F3D3 ;
1 L1 PUSH BC
1 L1 PUSH AF
1 L1 LD HL,BITE ;
1 L1 CALL START ;
1 L1 LD A,22
1 L1 LD DE,(#0000)
1 L0_1: LD E,B ;
1 L0_0: DJNZ L1_0
1 L0^ DEFB 00,00,00,00
1 L0: EXX
1 L0 LD A,(HL) ;
1 L AND S WORK WITH FILES.
1 Kot Ltd,
1 KONG S.BASK
1 KENDO WARRIOR
1 KEMPSTON 3 -
1 KEMPSTON 2 -
1 KANAL LD BC,#FFFD
1 Jantis 32-08-93
1 JUMPER JR $ ;
1 JR NZ, NODISK
1 JR NZ,LOOP [7/12
1 JP #F3EE ;
1 JP PE,LOOP [10
1 JOYSTICK,
1 Intelligence,
1 Initialize
1 IS IMPOSSIBLE
1 IS IMPOSSIBLE
1 INTERFACE-I.
1 INSERT DISK
1 INITIALIZE.
1 INITIALIZE mENU":
1 INITIALIZE
1 INF DEFB 0
1 INCR DEFW #0000
1 INC HL [6
1 IN HIS PART
1 ICOLOR PICS & BORDER AY-INDICATOR.
1 I$="" THEN LET INIT=49163: GO TO
1 I LOVE MY DU
1 Hig (IX+28) (IX+3)
1 HTEP -6" :
1 HOB GOBLIN
1 HEARTBROKEN
1 HEAR WROTE
1 HCIAQK!=9N;"(
1 HAVE BEEN PROTECT
1 GUY FAWKES.
1 GUN, MEDI PROBE),
1 GREETING FROM HELL ! THAT'S AGAIN DEMIURGE ASH WITH MULT
1 GOTR2 ADD A,B ;
1 GOTR1 LD A,B ;
1 GOPS5 LD A,L ;-------------------
1 GOPS4 POP BC ;
1 GOPS3 LD A,E ;--------------------
1 GOPS2 POP BC ;
1 GOPS1 LD (MODE_1),A ;
1 GOLDEN DISK
1 GGGGGGGGGGFF
1 GGGGFFFFFF
1 GENTLEMENq
1 Figure table
1 Ffor_g.txC
1 FUCK YOUDOIN' HERE, SHITMAN?
1 FRONT LINE
1 FRIEND: DYA
1 FOX FIGHTS BASK
1 FONT EQU 50000 ;
1 FONT DEFW 50000 ; -
1 FIRE LD A,(NUM)
1 FIND LD E,(HL) ;
1 FIND LD C,#0A ;
1 FILL1 LD (HL),A ;
1 FILL BOTTLE).
1 FILL LD A,L ;
1 FILENAME DEFM "filename" ;
1 FILE.......
1 FILE MENU":
1 FILE ABSENT
1 FIGURE TABLE
1 FFFFFFFFFF
1 FEC5: 0F 07 03 01 FD FD FD FD :D1
1 FEBD: 67 C3 AE FE 00 7F 3F 1F :6E
1 FEB5: FE FE FE EE 82 00 00 00 : 1D
1 FEB5: C6 20 6F 38 F4 7C D6 08 :8E
1 FEAD: FE FE 7C 38 10 10 38 7C : 2F
1 FEAD: 06 C1 0D C2 9C FE C9 7D :21
1 FEA5: F9 08 6F 24 7C E6 07 28 :C8
1 FEA5: 7E FC 7E 3E 1F 82 EE FE : 66
1 FE9D: FE FE FC 18 10 00 1F 3E : 18
1 FE9D: 7D 08 1A B6 77 13 2C 10 :B6
1 FE95: D6 08 57 C3 88 FE D1 C5 :A7
1 FE95: 00 00 00 81 FF 10 18 FC : 37
1 FE8D: C9 7B C6 20 5F 38 F4 7A :BA
1 FE8D: C0 C0 81 81 0C 00 00 00 : 19
1 FE85: 81 81 81 81 81 81 81 81 : 8B
1 FE85: 07 28 06 C1 0D C2 5F FE :A5
1 FE7D: 81 C0 81 81 81 81 81 81 : C2
1 FE7D: 23 10 E2 08 5F 14 7A E6 :6B
1 FE75: C0 81 81 C0 81 81 81 81 : F9
1 FE75: 7D F6 00 6F 1A B5 12 DD :13
1 FE6D: C0 81 03 81 81 84 81 C0 : 76
1 FE6D: 29 29 29 29 1A B4 12 1C :0B
1 FE65: A0 82 A0 90 90 90 28 C0 : BD
1 FE65: 26 00 18 FE 29 29 29 29 :43
1 FE5D: E1 EB C5 7B 08 DD 6E 00 :BA
1 FE5D: A0 A0 90 A0 A0 A0 A0 A0 : 4B
1 FE55: FE DD 7E 00 32 77 FE DD :30
1 FE55: A0 A0 A0 A0 A0 A0 C0 A0 : 73
1 FE4D: 28 4C 32 68 FE DD 21 C1 :16
1 FE4D: 03 C0 82 81 A0 A0 A0 A0 : 91
1 FE45: A0 82 A0 A0 C0 A0 A0 03 : A8
1 FE45: 6F 7B AC E6 07 AC 67 08 :E1
1 FE3D: C0 81 82 81 81 84 C0 A0 : E4
1 FE3D: 67 AA E6 07 AA 0F 0F 0F :10
1 FE35: 88 C0 42 81 81 C0 03 C0 : 42
1 FE35: 5F 7B 1F 37 1F 1F E6 5F :E6
1 FE2D: 7A E6 07 08 E5 3E BF 93 :0F
1 FE2D: 18 24 18 28 28 03 81 88 : DB
1 FE25: 66 FE A2 E6 07 32 58 FE :9E
1 FE25: 00 00 00 3E 00 00 00 02 : 63
1 FE1D: D4 D1 42 10 CF D1 C9 00 : 7B
1 FE1D: 7A FE 3C 32 A0 FE 08 32 :D9
1 FE15: CB 06 23 10 FB EB F1 20 : 0E
1 FE15: 08 2F 08 32 72 FE 3C 32 :62
1 FE0D: 38 09 3E AC 28 05 3E A4 :45
1 FE0D: 11 24 FE CB 01 06 08 EB : 03
1 FE05: FE 13 CB 06 24 10 F1 E1 : EB
1 FE05: 2C 08 AF 08 FE 01 3E B4 :DF
1 FDFD: DD 6E 24 DD 66 25 DD 7E :2C
1 FDFD: 1A CB 7F CB BE 28 02 CB : DC
1 FDF5: CB 79 F5 20 16 E5 06 08 : 54
1 FDF5: 5E 0C DD 46 14 DD 4E 1C :DA
1 FDED: DD 2A 0B 5C DD 56 04 DD :6C
1 FDED: 10 F3 C9 D5 C5 11 24 FE : 83
1 FDE5: E5 CB 06 19 10 FB E1 C1 : 5E
1 FDDD: BF C1 D1 E1 C9 C5 06 08 : A8
1 FDD5: 08 47 11 00 01 CD E2 FD : DF
1 FDCD: 10 CD F0 FD 7A D1 92 28 : 99
1 FDC5: 47 4B CD F0 FD 2C 42 16 : 92
1 FDBD: 18 0F D6 08 57 3E 08 90 : EC
1 FDB5: 09 30 07 06 06 4B 16 08 : 67
1 FDAD: E2 FD D1 47 C6 06 F5 FE : 60
1 FDA5: 28 09 47 D5 11 00 01 CD : CE
1 FD9D: FE 19 5E E1 3A 2C FE B7 : 0B
1 FD95: 21 27 FE 36 38 E1 11 12 : 4A
1 FD85: 29 29 19 79 01 08 00 11 : 80
1 FD7D: 5B 36 5C 6F 26 00 E5 29 : 0A
1 FD75: 30 05 11 BA FD 18 04 ED : 78
1 FD6D: F8 F6 40 67 E5 79 FE 20 : 7B
1 FD65: 3D CB 3D F1 85 6F 7C E6 : EE
1 FD5D: E6 07 32 2C FE CB 3D CB : 76
1 FD55: 2E 06 3E 00 85 10 FD 6F : C5
1 FD4D: 7C E6 07 0F 0F 0F F5 45 : 1A
1 FD45: 20 4F 7D FE 2A D2 DE FD : 03
1 FD3D: E5 D5 C5 FE 00 20 02 3E : 17
1 FD B5 OR IYl ;R = #26
1 FD AE 00 XOR (IX+0) ;R = #1E (0-
1 FD 7C LD A,IYh ;R = #24
1 FD 23 INC IY ;R = #22
1 F8AA DISONE:
1 F8A8 CB A7 RES 4,A ;
1 F8A6 CB A6 RES 4,(HL) ;
1 F8A4 30 04 JR NC,DISONE
1 F8A2 CB E6 SET 4,(HL) ;
1 F89F 21 FDE7 LD HL,BFLAG ;
1 F89D CB 3A SRL D ;
1 F89B 28 E5 JR Z,DISERR ;
1 F899 CB 7E BIT 7,(HL) ;
1 F897 28 11 JR Z,DISONE ;
1 F895 CB 7B BIT 7,E ;
1 F895 DIS_80:
1 F894 15 DEC D ;
1 F892 28 01 JR Z,DIS_80
1 F890 CB 4A BIT 1,D
1 F88E 28 05 JR Z,DIS_80 ;
1 F88C CB 7B BIT 7,E ;
1 F88A CB 22 SLA D ;
1 F888 28 0B JR Z,DIS_80 ;
1 F886 CB 76 BIT 6,(HL) ;
1 F886 DIS_40:
1 F884 18 5B JR BIOSER ;
1 F882 3E 08 LD A,8 ;
1 F882 DISERR:
1 F880 20 13 JR NZ,DIS_80 ;
1 F87E CB 76 BIT 6,(HL) ;
1 F87C 28 08 JR Z,DIS_40 ;
1 F87A CB 6B BIT 5,E ;
1 F877 CD F7AA CALL DRVADR ;--> (hl)
1 F876 5E LD E,(HL) ;
1 F873 CD F7A5 CALL DISADR ;--> (hl)
1 F870 CD F7B7 CALL SYSREG ;--> Akk
1 F86F D1 POP DE
1 F86C CD F802 CALL CH_DRV ;
1 F86B D5 PUSH DE
1 F86B MPOSIT:
1 F-16 FIGHTING FALCON
1 F-16 Combat Pilot.
1 Esli zAintErEsoBAlisx,to zBonitE"
1 Energy Bolt -
1 Electronic Stream -
1 Edit sprite:000 Quantity:000
1 Edit order
1 EXECUTE......
1 EQUIPMENT STORES
1 ENTER continue : SPACE abort
1 ENTER FILE NAME :
1 END LD A,C ;
1 EN GARDE.
1 EDIT ORDER...
1 ED8D: 24 FE ED B0 FE 59 20 05 : C5
1 ED 77 00 LD (IY+0),A ;R = #20 (0-
1 ED 5F L5CF8 LD A,R ;R = #1C
1 ED 4F LD R,A ;R = #1A
1 EC7E LD A,#3A
1 EAD A: POKE USR "A"+N,A: NEXT N
1 E -2"
1 Draw table
1 Draggon 51-10-39
1 Deznya by Dyad
1 Def Fn S(X,Y,Len,N,Col)=USR add
1 DROID MEND'
1 DOWN CALL PRINT
1 DNUM DEFB 0
1 DISKEDMAX IWAMOTO
1 DISK HEAD POSITION.
1 DISK ABSENT
1 DISK ERROR
1 DISK ....
1 DINF DEFB 0
1 DESTOY, POSSIBLY?
1 DEMIURGE ASH
1 DELIRIUM: R!B
1 DELAY(1-15):
1 DEFW - DW; DEFS - DS.
1 DEF FN R(X,Y,Len,Hig,Col,Sh)=USR add
1 DEC BC [6
1 DEATH-METAL
1 DDD<D|D@pDD
1 DD5,DD4 -
1 DD1,DD2.4 -
1 D@@Q@QDQDQ
1 D=92@up3@3
1 D<D<DDDDD<<
1 D8H8<8H8DDD
1 D.C.U., A.D.M.,
1 D-distchor
1 Created by
1 CopyK, HopCommander, Navigator.
1 Coords. to
1 Col (IX+36) (IX+4)
1 CYCL PUSH BC
1 CURSOR PLOT UNPLOT INVERT PICTUREMAGCOPYFIGURE COLOUR PRINT COLCOPYMAGCOPY
1 CUP DEFB 143
1 CS+L & CS+S SAVES/LOADS TWO PART
1 CS+9 GRAPH -
1 CS+8 ===> -
1 CS+7 || -
1 CS+6 \/ -
1 CS+5 <=== -
1 CS+4 I.VIDEO -
1 CS+3 T.VIDEO -
1 CS+2 C.LOCK -
1 CS+1 EIDT -
1 CS+0 DELETE -
1 CRITICAL MASS
1 CREDITS :
1 CREATED BY FDI"
1 CRASY CARS
1 CPI [16
1 CP #FF
1 CP MIN+1
1 CONT LD A,(HL)
1 CONT LD A,#80
1 COND1 LD A,(IX+0) ;
1 COND LD IX,(TABLE) ;
1 COLUMN RLA ;
1 COLOR DEFB <0*128>+<0*64>+<7*8>+0
1 COIN, COOPER COIN
1 CLIFF HANGER
1 CKA -8":
1 CKA -9"
1 CK HOMEP ";h$:
1 CK -7":
1 CHAR DEFS 8 ; -
1 CENTURIONS
1 CATERPILAR
1 CATALOGUE...
1 CASEY JONES
1 CAPS SHIFT - #E3, SYMBOL SHIFT - #0E, ENTER - #0D.
1 CALL #3D13
1 C50A LD DE,#0064 *
1 C509 NOP
1 C5 0E 02 CD D3 F3 FE 0D 20 F9 C1 ...
1 Bybor nAkopitEla"
1 BstABitx sprAjt"
1 Brush mode=
1 Bolos 43-15-19
1 Background
1 BUFF DEFW #0000
1 BUCK ROGERS
1 BROOCH, PAINTING, SAPPHIRE, SWORD, GEMS, RUBY, IDOL, BAG OF SILVER.
1 BOULDER DASH 5
1 BLOCADE RUNNER
1 BLOB THE COP
1 BLASTEROIDS
1 BLANKET),
1 BITE THE DUST
1 BITE DEFB #00
1 BIONIC COMMANDOS
1 BIG TROUBLE IN LITTLE CHINA
1 BEGIN LD A,(NUM)
1 BEGIN LD A,(HL)
1 BEAKY AND THE EGG SNATCHERS
1 BDDDD@DDHDD
1 BASEBALL CAP.
1 BARMU BURGERS
1 BAR6 LD A,(OPC1) ;
1 BAR5 LD A,L
1 BAR3 LD H,(IX+0)
1 BAR1 DEC A ;
1 BAR LD L,A ;
1 BACKGROUND...
1 B8x<D8x8D<<
1 B mEnq rAbotAET kAk
1 Attack shield -
1 Anti-matter ray -
1 AY-3-8912.
1 AY-3-8910,
1 AUTOPR EX (SP),HL ;
1 AUTHOR MR.VAG THANKS FOR USING
1 ATb?(0-HET)"
1 ATR PUSH HL
1 ATM-turbo.
1 AT 1,26;"AAA"
1 ARMY MOVES (128)
1 ARCADE FLIGHT SIM.
1 ANIMATION..
1 ANIMATION MENU":
1 AND PRESS A KEY
1 AND LEFT<->RIGHT MOVING.
1 AIR FORCE 2
1 AFTERW 1 (AFTERW 2)
1 ADRES DEFW 24000 ;
1 ADDAMS FAMILY (128)
1 ADA, MuLisp
1 ACTION FORCE
1 ACTION FIGHTER
1 ABOUT......
1 ABBCCCDDDDEEEEEFFFFF
1 AAAAAAAAAAQQQQQQQBBB
1 A=(#30..#39, #41..#5A) -
1 A B-ABTO","C-C
1 ?) PROJECTOR
1 ?!) DELIRIUM MULTIDEM@p
1 ? / Yes,No /";:
1 >dos4.tx C
1 >: REM N=9
1 >: REM M=18
1 >: REM L=20
1 >
1 =0) |
1 ="" THEN GO TO 70
1 <x8888D8DDDDDDD>~<
1 <T<xTDDDD><<<
1 <T8xTrDDDDDDDDDDD<
1 <NONE>
1 <B|T|DDDD8
1 <<DDD<<xx(8|
1 <<D8xDDDDDDDDDD<<
1 ;special for "INFORCOM"
1 ;j$(bd+s,b):
1 ;cross.txC
1 ;END OF SPRITE OUTPUT 2.3
1 ;DEF FN M(X,Y,L,H,A,O)=USR 65005
1 ;COMPRESSOR - 3
1 ;================
1 ;===============
1 ;------------------------- ;
1 ;----------------
1 ;---------------
1 ;------------- LOADER 2 -------
1 ;-------- LOADER -----
1 ;----- Special Fonter ---- ;
1 ;- Spectrum Windows Print -
1 ;- - - - - - - - - - - - - - - - - - - - - - - - - - -
1 ;********************
1 ;* bit 0- Save 1=Yes
1 ;* BIG FONT (Ballbr.2) *
1 ;* #3D13 EMMULATION
1 ;(C) Vasilyev Alexey, 1996
1 ;"~PROGRAMS BANK~ v9.4";
1 ;"zontAlxnoj ili BErti-"
1 ;"tElxnosti prokrutki"
1 ;"kursorom nA linzE i B mEnq"
1 ;"kAlxnoj osi"
1 ;"izmEnEniE rAzmEroB oknA"
1 ;"INSERT PAPER
1 ;"File ~bank~ not found":
1 ;"CURSOR";
1 ;"CORRECTED BY";
1 ;"C 19-00 do 21-00"
1 ;"BOlxnoj poslEdoBA-"
1 ;"BCTABbTE
1 ;"BAtElxnoj prokrutki"
1 ;"(mAskA/sprAjt)"
1 ;"(Bykl/poln/wAXm)"
1 ; (C) BY KABANOV ALEXANDR
1 ; by Andrei Chereshnev
1 ; Copyright 18.07.96
1 ; loader level game
1 ; SPRITE OUTPUT 2.3
1 ; (C)SERZHSOFT'1996
1 ; Exesp v1.00
1 ; 2->
1 ; 1->
1 ; (C) Light,
1 ;
1 :djT_:ej=G
1 :SPRITE EDITOR v2.1
1 :HZH[H\H?^%]V
1 :'ver 5.01 *'.
1 : X,Y -
1 : TRYDIS KEY, SPRAY CAN, STOOL
1 : TRIPOD, EXTENSION LEAD, SHOVEL, Ph TEST
1 : T-CODEX,
1 : Solitair,
1 : SPACE - #20,
1 : SORRY, YOU HAVEN'T DISK DRIVE,
1 : SEEK ANYTHING, TAKE ANYTHING, BRIBE
1 : SAY WEALTH (
1 : S=4, DS=1, DA=88,
1 : ROBE, GOLD NUGGET, NECKLACE, COCONUT, PLATIN.
1 : RANDOMIZE USR 40000: IF INKEY$
1 : Q, A, SP.
1 : Power Play.
1 : Players.
1 : Lords of Time.
1 : Level 9.
1 : FEED HORSE
1 : Elane Freuyh (PHOTON, LIGHT SABRE, MEDI-PROBE),
1 : DIDO COLLIDES WITH BARCA.
1 : C,A,D,E.
1 : BEWARE BOGONS, WHO'S TRYDIS
1 : 620072,
1 : 60808,182-
1 : 60627,N-
1 : 59876,0-
1 : 56720,201-
1 : 55198,0-
1 : 55146,182: 55961,182-
1 : 54459,0-
1 : 53865,0-
1 : 52904,0-
1 : 51905,182-
1 : 51652,175-
1 : 51588,0-
1 : 51368,N-
1 : 50545,0-
1 : 49732,0-
1 : 49341,201 (49318,0)-
1 : 48033,0: 48034,0-
1 : 46326,0-
1 : 45721,N-
1 : 42023,N-
1 : 42022,N-
1 : 42021,N-
1 : 42013,N-
1 : 42011,N-
1 : 41941,0-
1 : 407726,24: 40727,11: 40722,0-
1 : 39059,0-
1 : 38762,0-
1 : 36027,0-
1 : 33594,0: 33669,0
1 : 33094,0-
1 : 32890,N-
1 : 32877,N-
1 : 32872,N-
1 : 30662,0-
1 : 30563,0-
1 : 28635,5...40-
1 : 26815,0-
1 : 25960,0-
1 : 25514,0-
1 : *WILD WEST SEYMOUR ADVENTURES.
1 : *FIRELORD.
1 : *COLONY.
1 : $1.010.000 - $1.000.000 - $A0.990.000).
1 : "YOU WILL NEVER ASCEND TO THE GODS IF YOU SEND
1 : "TAKE A CUP TO A DINING ROOM" -
1 : "...SOME STAIRS
1 : LET DATA = 49152 : RANDOMIZE DATA: POKE (ADR + 1),
1 : "Mutate? (Y/N)".
1 : DEFB - DB;
1 : LD C,0
1 : xxxyyzzz
1 : LD HL DATA (!!!
1 : LD HL DATA
1 9{~2gz#~2u
1 9is a professional
1 9D00: 20 20 20 20 20 00 00 00 :3D
1 9CF8: 20 20 20 20 20 20 20 20 :94
1 9CF0: 20 20 20 20 20 20 20 20 :8C
1 9CE8: 39 36 20 20 20 20 20 20 :B3
1 9CE0: 20 20 20 20 40 20 31 39 :C6
1 9CD8: 6E 20 20 20 20 20 20 20 :C2
1 9CD0: 72 69 6A 61 73 68 6B 69 :C1
1 9CC8: D1 E1 C9 00 00 00 00 00 :DF
1 9CC8: 20 20 20 20 20 41 6E 64 :17
1 9CC0: 6E 20 62 79 20 20 20 20 :45
1 9CC0: 00 09 C1 10 EE 22 CB 9C :AD
1 9CB8: C1 E1 C9 00 00 00 00 00 :BF
1 9CB8: 20 20 57 72 69 74 74 65 :13
1 9CB8: 01 00 18 ED B0 E1 01 14 :00
1 9CB0: FC F1 C9 E5 C5 CD E5 22 :80
1 9CB0: 2A CB 9C C5 E5 11 00 40 :D8
1 9CB0: 20 20 20 20 20 20 20 20 :4C
1 9CA8: F7 C9 F5 3E 04 76 3D 20 :0E
1 9CA8: 20 20 20 20 20 20 20 20 :44
1 9CA8: 18 36 00 ED B0 C9 E5 D5 :B2
1 9CA0: CD AA 9C 3D 32 6F 59 20 :A6
1 9CA0: C9 20 20 20 20 20 20 20 :E5
1 9CA0: 21 00 40 11 01 40 01 00 :F0
1 9C98: CD AA 9C 3C FE 08 20 F5 :9E
1 9C98: 20 AC 7E B7 E3 20 A5 E1 :BE
1 9C98: 06 01 CD AE 9C C1 10 DB :FE
1 9C90: DB FE 0F 30 0A 10 F6 0D :61
1 9C90: AF 12 D1 C1 10 E8 23 1B :B5
1 9C90: 4E 32 6F 4F AF 32 6F 59 :13
1 9C88: E1 AF 12 D5 3E 20 83 5F :DB
1 9C88: 9C 00 00 00 00 00 00 00 :C0
1 9C88: 48 41 43 4B 45 52 53 00 :25
1 9C88: 2D 25 20 E9 3E 03 32 6F :61
1 9C88: 13 10 E4 06 04 76 3E BF :A8
1 9C80: 9C 05 CD B3 9C 76 C1 0C :1C
1 9C80: 4C 4C 4F 20 41 4C 4C 20 :1C
1 9C80: 14 23 10 FA D1 13 C9 40 :4A
1 9C80: 01 25 6F 7E D1 12 E1 23 :16
1 9C80: 00 E5 01 20 00 09 36 00 :61
1 9C78: C5 04 CD B3 9C 4D CD B3 :C6
1 9C78: 9C 23 18 CA 8F 9C 48 45 :6D
1 9C78: 85 6F 26 87 06 08 7E 12 :53
1 9C78: 59 06 10 C5 06 01 C5 36 :4A
1 9C78: 29 11 00 3C 19 7D 91 30 :E1
1 9C70: E6 0F D5 87 87 87 2E 00 :99
1 9C70: D5 7E 3C 87 26 00 6F 29 :E0
1 9C70: C1 10 E0 21 60 59 11 7F :27
1 9C70: 20 04 7B C6 20 5F 2A 7C :96
1 9C70: 00 50 21 FF 80 CD B3 9C :18
1 9C68: FE 1F D0 18 D3 01 00 00 :DD
1 9C68: CB 3F CB 3F CD 72 9C F1 :E4
1 9C68: C1 10 E3 EB C1 E1 E5 E5 :0F
1 9C68: 20 1B 10 FD 01 20 00 09 :76
1 9C68: 10 F9 3E 03 32 91 5C 01 :6E
1 9C68: 0D 20 ED D1 13 7B E6 1F :82
1 9C60: E5 09 7E E1 77 3E 7F DB :58
1 9C60: 87 9C C9 F5 CB 3F CB 3F :F1
1 9C60: 67 01 14 00 E5 ED B0 E1 :DB
1 9C60: 23 10 F8 D1 7B C6 20 5F :B8
1 9C60: 20 3E FF 77 24 77 25 2C :BC
1 9C60: 06 01 CD AE 9C D1 E1 06 :D2
1 9C58: FE CD 6B 0D 21 60 4E 06 :0C
1 9C58: FE 5C 30 E4 67 01 00 40 :0A
1 9C58: D6 E0 6F 30 04 7C D6 08 :A7
1 9C58: D5 06 04 7E 12 14 12 14 :9D
1 9C58: D1 7B C6 20 5F 10 E9 22 :A0
1 9C58: 36 00 AF 12 23 13 10 F8 :29
1 9C50: 9C C1 E1 23 13 0D 20 F3 :80
1 9C50: 61 29 29 29 09 D5 0E 02 :B6
1 9C50: 5D 24 7C E6 07 20 0A 7D :7D
1 9C50: 5A 06 0B C5 E5 D5 06 20 :FC
1 9C50: 32 8D 5C 32 48 5C AF D3 :5F
1 9C50: 22 6D 9C 7C E6 1F F6 40 :CE
1 9C50: 22 53 9C 01 00 00 00 00 :FE
1 9C48: D5 0E 08 7E E5 C5 CD 63 :27
1 9C48: D3 FE CD 6B 0D 76 3E 07 :B5
1 9C48: C5 06 63 21 06 48 C5 54 :9A
1 9C48: 9C 01 00 3C AF 6E B5 C8 :57
1 9C48: 22 CB 9C 21 00 58 11 E0 :D7
1 9C40: 3E 3F 32 8D 5C 32 48 5C :4A
1 9C40: 2A 87 9C 11 00 40 06 08 :88
1 9C40: 2A 6D 9C 0E 10 7C 29 E6 :B8
1 9C40: 2A 53 9C 0E 10 7C 29 E6 :9E
1 9C40: 21 A1 9C E5 0E 08 06 14 :4F
1 9C40: 11 00 40 21 7E 9C 22 7C :06
1 9C40: 06 05 CD AE 9C 21 00 00 :1F
1 9999 RANDOMIZE USR 15619: REM: SAVE "BIGPRINT" LINE 10
1 990 DJNZ LOOP5
1 980 INC HL
1 98,64,50,0
1 970 LOOP5 LD (HL),A
1 960 LD B,E
1 950 INC HL
1 940 DJNZ LOOP3
1 930 POP BC
1 920 ADC HL,DE
1 910 LD DE,#0020
1 900 NEXT2 POP HL
1 90 PRINT AT 0,0;A;"!=";B;"E+";E : GOTO 10
1 90 POKE 65289,0: POKE 65251,0
1 90 POKE 50198,0
1 90 POKE 26515,[NUMBER OF LIVES]
1 90 DATA 24,46,33,89,5,93,22,250,1,134,0,213
1 90 DATA 205,86,5,48,241
1 90 DATA 146,192,62,50,50
1 90 XOR A
1 90 RRCA
1 90 OUT (C),A ;
1 9,5,4,2,2,1,0,0
1 9 20
1 9 32
1 8B03 LD A,#3A
1 8B03 LD A,#09
1 890 LD (HL),A
1 88DT8x8xDDDDD<
1 880 LD A,(IX+44)
1 870 JR Z,NEXT2
1 860 DEC D
1 850 DJNZ LOOP4
1 840 INC HL
1 830 LOOP4 LD (HL),A
1 820 VAR DEFW 0
1 820 LD A,(IX+36)
1 810 PUSH HL
1 810 RET
1 81,81,144,0
1 800 LD B,E
1 800 POP HL
1 80 RANDOMIZE USR 65280
1 80 RANDOMIZE USR 64225
1 80 POKE 41650,b: GO TO 100
1 80 OUT 49149,I:REM
1 80 IF D=64725 THEN LET D=65280
1 80 DATA 50,21,105,122,254
1 80 DATA 5,201,31811
1 80 DATA 49,0,98,175,33,4,108,119,35,119,35,35,119,35,119,35,119,50,254,236,
1 80 DATA 120,4,62,255,55
1 80 RRCA
1 80 PUSH BC
1 80 LD A,5 ;(
1 8 21
1 8 33
1 790 LOOP3 PUSH BC
1 790 POP DE
1 780 INC E
1 780 LD (VAR),HL
1 770 FONT EQU 15616
1 770 INC E
1 770 DJNZ L5
1 7610: 5F D8 7A C6 08 57 C9 00 :25
1 7608: E6 07 FE 07 C0 7B D6 20 :A1
1 7600: D8 7C D6 08 67 C9 15 7A :67
1 760 LD E,(IX+20)
1 760 POP BC
1 760 DEFB 0
1 75F8: 7C E6 07 C0 7D C6 20 6F :68
1 75F0: FF 02 36 47 ED B0 C9 24 :6D
1 75E8: C6 08 57 C9 00 00 00 00 :4B
1 75E8: 01 FF 17 ED B0 13 23 01 :48
1 75E0: B0 21 00 40 11 01 40 70 :28
1 75E0: 07 C0 7B D6 20 5F D8 7A :3E
1 75D8: D5 E1 13 70 01 3F 02 ED :B5
1 75D8: 08 57 C9 15 7A E6 07 FE :EF
1 75D0: C0 7B C6 20 5F D8 7A D6 :ED
1 75D0: B0 C1 E1 CD F7 75 10 F2 :D2
1 75C8: D6 08 67 C9 14 7A E6 07 :C6
1 75C8: 06 C0 E5 C5 01 20 00 ED :BB
1 75C0: 07 C0 7D C6 20 6F D8 7C :22
1 75C0: 01 00 03 ED B0 21 00 40 :37
1 75B8: BD 75 10 F2 C9 24 7C E6 :B0
1 75B8: 01 00 18 ED B0 11 17 76 :81
1 75B0: ED B0 21 17 76 11 00 40 :C1
1 75B0: 01 20 00 ED B0 C1 E1 CD :52
1 75A8: B0 21 00 40 06 C0 E5 C5 :9E
1 75A8: 58 11 01 58 01 FF 02 77 :58
1 75A0: 21 EC 75 77 01 7F 02 ED :7D
1 75A0: 10 99 C9 AF D3 FE 21 00 :28
1 7598: A2 C9 AF D3 FE 11 ED 75 :6B
1 7598: 06 76 78 FE 41 30 01 76 :E7
1 7590: D1 C1 78 FE C1 30 04 CD :CF
1 7590: C1 78 FE 8C 38 01 76 10 :87
1 7588: DC E1 01 20 00 A7 ED 42 :B1
1 7588: CC 75 01 20 00 A7 ED 42 :35
1 7580: ED 42 C1 04 7A FE 40 30 :D1
1 7580: DB 75 7A FE 40 30 03 CD :FD
1 7578: E1 38 0E DD E5 10 E7 A7 :74
1 7578: 01 1F 00 ED B8 D1 E1 CD :31
1 7570: E1 CD 06 76 7A FE 40 DD :A4
1 7570: 58 D5 57 D5 E1 1B 36 47 :B7
1 7568: C5 01 20 00 ED B8 C1 D1 :FA
1 7568: 15 7A 0F 0F 0F E6 03 F6 :78
1 7560: ED B8 C1 E1 D1 C5 E5 D5 :6C
1 7560: 58 38 DE D1 7A E6 07 20 :9B
1 7558: E5 10 E7 09 C1 04 7A FE :EF
1 7558: 76 19 F6 58 57 01 20 00 :22
1 7550: E6 03 D5 E5 C5 57 21 17 :BC
1 7550: 7A FE 58 DD E1 30 0C DD :6C
1 7548: ED B8 C1 D1 E1 CD CC 75 :E3
1 7548: E6 07 20 19 7A 0F 0F 0F :8A
1 7540: 20 01 FE C1 30 1F 7A 2F :8D
1 7540: 01 C5 E5 D5 C5 01 20 00 :1B
1 7538: 93 06 D2 C5 D5 E5 78 01 :10
1 7538: 90 06 D4 C5 E5 D5 01 20 :B7
1 7530: CD A3 75 11 FF 57 21 56 :68
1 7530: CD 9A 75 11 FF 57 21 6B :74
1 750 LD D,1
1 750 DEFM " "
1 750 ADD HL,BC
1 740 INC B
1 740 LD BC,20
1 740 DEFM " @ 1996 "
1 730 INC B
1 730 POP HL
1 730 DEFM " Andrijashkin "
1 720 LD B,(IX+28)
1 720 LDIR
1 720 DEFM " Written by "
1 710 TXT DEFM " "
1 710 LD L,A
1 710 LD BC,6144
1 700 ADD A,E
1 700 RET
1 700 LD DE,16384
1 70 RANDOMIZE 16436
1 70 PRINT AT 0,0;C
1 70 POKE 65441,172: POKE 65442,84: RANDOMIZE USR 65485
1 70 POKE 65304,201
1 70 POKE 41649,a
1 70 LET T=T+B: LET D=D+1
1 70 IF T<>A THEN PRINT "DATA ERROR IN GAME BLOCK": STOP
1 70 FOR I=10 TO 2 STEP -1:REM
1 70 DATA 62,255,55,205,86
1 70 DATA 221,33,203,92,17
1 70 RRCA
1 70 PUSH BC
1 70 LD BC,49149 ;
1 7!?l"%!`=9
1 7 22
1 7 34
1 6comp.tx C
1 6;"AAA": PRINT #0;AT 0,26;"AAA";
1 690 EXIT POP HL
1 690 RRCA
1 690 PUSH HL
1 680 L5 PUSH BC
1 680 RRCA
1 680 JR NZ,M1
1 670 RRCA
1 670 JR LEN
1 670 RET
1 670 LD HL,(VAR)
1 670 EX (SP),HL
1 67,64,127,0
1 660 INC C
1 660 AND #07
1 660 PUSH DE
1 660 POP HL
1 660 OR A
1 650 SNEG PUSH HL
1 650 LD A,D
1 650 DEC HL
1 650 POP BC
1 650 LD A,(HL)
1 640 LD H,A
1 640 ADC HL,DE
1 640 RET
1 640 JR NZ,M2
1 640 CALL #22E5
1 64,128,0,0
1 630 OR #58
1 630 JR NC,LEN
1 630 PUSH BC
1 630 LDIR
1 630 DEC C
1 620 PLOT PUSH HL
1 620 RRCA
1 620 CP B
1 620 LD (HL),0
1 620 DJNZ M6
1 610 NEXTB LD A,C
1 610 RRCA
1 610 RET
1 610 LD BC,6144
1 610 JR NC,EXIT
1 600 RRCA
1 600 JR LEN
1 600 RRCA
1 600 POP AF
1 600 LD DE,16385
1 60 RANDOMIZE USR 3E4
1 60 RANDOMIZE USR 3E4
1 60 PRINT "PLAY COMMANDO TAPE": LOAD ""CODE
1 60 PRINT ": LOAD ""CODE
1 60 POKE D,B
1 60 OUT 65533,9:REM
1 60 OUT 65533,13:OUT 49149,BIN 11111110:REM
1 60 LET k$=INKEY$: IF k$="" THEN GO TO 60
1 60 LET b=INT (liv/256)
1 60 IF B>10 THEN GOTO 50
1 60 FOR N=N TO 1E9: READ A: IF A<256 THEN POKE N,A: LET T=T+A: NEXT N
1 60 DATA 74,253,17,0,2
1 60 OUT (C),A ;(
1 60 LD B,(IX+12)
1 60 AND #18
1 6 23
1 6 35
1 590 DEC C
1 590 AND #18
1 590 LD HL,16384
1 590 JR NZ,L00
1 590 IN A,(#FE)
1 580 SBC HL,DE
1 580 LD A,D
1 580 LD A,#BF
1 580 DJNZ L4
1 580 DEC A
1 58,10,178,0
1 572 LD D,(IX+12)
1 571 LD E,(IX+4)
1 570 NEXT LD IX,(23563)
1 570 NEXT POP DE
1 570 M6 HALT
1 570 L00 HALT
1 570 JR Z,LEN
1 570 POP BC
1 560 OR A
1 560 JR STROKA
1 560 LD B,4 ;
1 560 LD A,4
1 560 CALL SNEG
1 5544322100/..-,,
1 550 PAUSE PUSH AF
1 550 PUSH AF
1 550 LD A,C
1 550 LD B,1
1 550 DJNZ M4
1 540 JR C,NEXTB
1 540 INC A
1 540 RET
1 540 INC DE
1 540 DEC DE
1 530 NEXTA CP 11
1 530 LD DE,#8E8D
1 530 JR NZ,L3 :
1 520 RET
1 520 LD C,140
1 520 POP HL
1 520 LD (22895),A
1 520 DJNZ L3
1 510 ADDR DEFW 40000
1 510 INC C
1 510 CALL 2715
1 510 POP BC
1 510 LD (DE),A
1 510 DEC A
1 500 L3 CALL PAUSE
1 500 ADRH EQU 135
1 500 LD C,E
1 500 LD B,0
1 50 RANDOMIZE USR a
1 50 OUT 65533,12:OUT 49149,255:REM
1 50 LET a=liv-256*INT (liv/256)
1 50 LET B=B/10 : LET E=E+1
1 50 LET B=(CODE A$(G*2-1)-48-7*(CODE A$(G*2-1)>57))*16+(CODE A$(G*2)-48- 7*
1 50 IF T<>54755 THEN STOP
1 50 IF T<>2102 THEN PRINT "ERROR PLEASE RE CHECK": STOP
1 50 IF T<>12120 THEN PRINT "DATA ERROR IN MAIN BLOCK"
1 50 IF T-359795 THEN STOP
1 50 IF T-327676 THEN STOP
1 50 DATA 205,86,5,221,33
1 50 CLS: PRINT AT 5,5;"1. Cat"'" 2. File:";n$;"**"'" 3
1 50 LD A,3 ;
1 50 LD C,(IX+4)
1 50 LD A,E
1 5 CHANGING ALGORITHM OF MOVEMENT
1 5 24
1 5 36
1 49149(#BFFD)
1 490 ADRL EQU 0
1 490 LD B,D
1 490 JR C,NEXTA
1 490 LD A,(HL)
1 490 LD (DE),A
1 490 JR NZ,L2 ;
1 480 INC D
1 480 CP 13
1 480 XOR A
1 480 RET
1 480 LD L,A
1 480 CP #08
1 470 POP BC
1 470 DJNZ LOOP2
1 470 LD E,A
1 470 INC DE
1 470 INC A
1 470 DEC H
1 46000;2300
1 460 POP HL
1 460 POP BC
1 460 POP DE
1 460 JR NC,$+3
1 460 CALL PAUSE
1 460 ADD A,E
1 450 L2 LD (22895),A
1 450 RST #10
1 450 DJNZ LOOP2
1 450 SUB C
1 450 LD A,32
1 450 DJNZ LOK
1 450 DEFB 0
1 440 TEXT DEFM "HELLO ALL HACKERS"
1 440 LET y=y+1: GO TO 370
1 440 LD A,133
1 440 INC HL
1 440 XOR A
1 440 PUSH DE
1 440 LD A,L
1 440 INC HL
1 430 TEMP DEFW 0
1 430 POKE 26743,(x-1): RANDOMIZE USR 26500
1 430 LOOP2 LD (HL),C
1 430 DATA 99,115,61,175,33,0,0,50,238,0,34,32,0,50, 241,0,34,156,0,201,1422368
1 430 DATA 65,112,61,175,50,31,148,201,1404138
1 430 POP DE
1 430 LD (DE),A
1 430 LD (20335),A
1 430 INC D
1 430 ADD HL,DE
1 420 IF x<7 THEN GO TO 380
1 420 PUSH HL
1 420 CALL 2715
1 420 XOR A
1 420 LD DE,FONT-256
1 420 LD (DE),A
1 420 LD (20079),A
1 420 JR LK
1 410 LOK LD A,(HL)
1 410 LET a=a+6144: LET x=x+1
1 410 PUSH DE
1 410 POP BC
1 410 POP HL
1 410 LD A,3
1 410 INC HL
1 410 ADD HL,HL
1 400 OBH LD HL,(TEMP)
1 400 IF er<>0 AND x=1 THEN GO TO 50
1 400 LD B,D
1 400 JR C,KEY
1 400 LD B,8
1 400 LD (HL),0
1 400 JR NZ,L1 ;
1 400 ADD HL,HL
1 40 READ A: POKE N,A: LET T=T+A: NEXT N
1 40 RANDOMIZE USR 40000: INK 6
1 40 RANDOMIZE USR 3E4
1 40 POKE N,A: LET T=T+A: NEXT N
1 40 POKE 61632,INT (a/256): POKE 61631,(a-256*PEEK 61632)
1 40 OUT 65533,9:OUT 49149,16:REM
1 40 LET T=T+(F-16374)*A:NEXT F
1 40 LET C=F+999: FOR G=1 TO 5
1 40 IF NOT liv THEN GO TO 90
1 40 IF B<10 THEN GOTO 80
1 40 LD BC,65533 ;
1 40 LD E,(IX+12)
1 40 CALL #1601
1 4-5) AND A COV
1 4-5 CENTRY DROID'
1 4- DosVer 1=5.03 *
1 4 25
1 4 37
1 3E 1A LD A,#1A
1 390 IF er<>0 AND x<>1 THEN GO TO 430
1 390 LD C,A
1 390 CP 10
1 390 LD L,A
1 390 LD H,ADRH
1 390 LD E,A
1 390 DEC H
1 390 ADD HL,BC
1 380 LET f$=n$+CHR$ (y+48)+CHR$ (x+48): LET er=USR 15619: REM: LOAD
1 380 JR NC,KEY
1 380 ADD A,E
1 380 LD L,A
1 380 LD H,0
1 380 LD BC,32
1 380 DEC L
1 380 ADD A,32
1 370 LET a=27000: LET x=1
1 370 INC A
1 370 CP 14
1 370 PUSH HL
1 370 LD A,E
1 370 INC C
1 370 ADD A,L
1 370 ADD A,A
1 360 LD A,(IY-50)
1 360 LD A,(IX+20)
1 360 POP BC
1 360 LD L,ADRL
1 360 LD (HL),0
1 360 JR NZ,OBH
1 360 INC A
1 350 LET y=1
1 350 L3 PUSH BC
1 350 RST #10
1 350 JR Z,KEY
1 350 LD A,(HL)
1 350 HALT
1 350 AND 31
1 350 ADD A,A
1 340 KEY BIT 5,(IY+1)
1 340 LD A,138
1 340 PUSH DE
1 340 LD B,1
1 340 LD A,E
1 340 CALL PLOT
1 340 ADD A,A
1 330 M4 PUSH HL
1 330 L4 PUSH BC
1 330 RET ;
1 330 RES 5,(IY+1)
1 330 POP DE
1 330 INC DE
1 330 DEC B
1 330 ADD A,A
1 33,33,17,17,8
1 320 PR PUSH DE
1 320 POP HL
1 320 LD A,%11111110;
1 320 CALL 2715
1 320 PUSH HL
1 320 POP DE
1 320 LD B,16
1 320 CALL PLOT
1 32,21,0,#FF
1 32,159,160,161,#FF
1 310 POKE 26745,d: RANDOMIZE USR 26663
1 310 PUSH DE
1 310 LD BC,49149 ;
1 310 DJNZ LOOP1
1 310 POP HL
1 310 LD DE,22911
1 310 LD C,L
1 310 JR NZ,LKT
1 310 AND 15
1 300 INPUT " Print (y/n)? ";k$: IF k$<>"y" AND k$<>"Y" THEN GO TO 50
1 300 OUT (C),A ;
1 300 LD B,D
1 300 INC HL
1 300 POP BC
1 300 POP AF
1 300 LD HL,22880
1 300 DEC C
1 300 CALL PLOT
1 30 READ A: POKE F,A
1 30 READ A$,A: LET T=0
1 30 RANDOMIZE USR 15619:REM:SAVE A$ CODE 40000,256
1 30 RANDOMIZE USR 15619:REM:CLOSE# 4
1 30 RANDOMIZE USR 15619: REM: LOAD "gensedit" CODE
1 30 PRINT AT 0,0;" FLASH (C) AZH soft 1996"
1 30 OUT 65533,7:OUT 49149,BIN 11111101:REM
1 30 NEXT F: READ A: IF T<>A THEN STOP
1 30 LET n$="screen": LET x=1: LET y=1: LET d=0
1 30 INPUT "How many lives (1-65535,0 for infinite):";liv
1 30 FOR N=65030 TO 65052
1 30 FOR N=64223 TO 64316: READ A
1 30 FOR C=1 TO A : LET B=B*C
1 30 LD D,(IX+4)
1 30 LD A,2
1 30 ENT
1 3.znAhEnia pEriodA ABtopoBtorA i"
1 3.VIEWER V
1 3.SS+LEFT/RIGHT
1 3.07","DCU 2.02","DCU 2.31"
1 3. Load graphics
1 3 26
1 3 38
1 290 TEMP DEFB 1,0
1 290 LOOP1 LD (HL),A
1 290 LD A,13 ;
1 290 LD C,E
1 290 LD E,A
1 290 INC B
1 290 EX DE,HL
1 290 DJNZ L0
1 290 CALL PR
1 280 PUSH HL
1 280 LD BC,65533 ;
1 280 INC D
1 280 SRL A
1 280 PUSH BC
1 280 POP BC
1 280 JR BEGIN
1 280 DJNZ M3
1 280 ADD A,32
1 270 LOOP2 PUSH BC
1 270 L1 CALL PLOT
1 270 OUT (C),A ;
1 270 LD A,(IX+36)
1 270 SRL A
1 270 RET NC
1 270 POP BC
1 270 LD A,E
1 270 ADD HL,BC
1 260 GO TO 50
1 260 PUSH BC
1 260 LD A,255 ;
1 260 LD B,(IX+28)
1 260 SRL A
1 260 RRA
1 260 POP HL
1 260 POP DE
1 260 LD HL,#80FF
1 260 LD BC,32
1 255,255,192,223
1 255,0,255,255
1 254,2,194,250
1 252,2,130,132
1 251,3,255,255
1 250 INPUT " Density:";d: IF d>6 OR d<0 THEN GO TO 250
1 250 DATA 148,91,11004
1 250 POP DE
1 250 LD BC,49149 ;
1 250 LD C,(HL)
1 250 SRL A
1 250 LDIR
1 250 LD BC,#5000
1 250 IN A,(#FE)
1 250 DJNZ LOOP
1 250 DJNZ L2
1 240 PRINT PUSH AF
1 240 L2 DEC DE
1 240 DATA 184,195,16,175,18062
1 240 DATA 175,50,42,138,195
1 240 OUT (C),A ;
1 240 LD B,(IX+20)
1 240 JR NZ,NEXT
1 240 PUSH HL
1 240 LD A,#7F ;
1 240 LD (23697),A
1 240 INC HL
1 230 RANDOMIZE USR 65083
1 230 LEN PUSH BC
1 230 DATA 201,33,200,249,17,254,255,1,33,152,237
1 230 LD A,12 ;(
1 230 AND A
1 230 RET
1 230 LD BC,20 ;
1 230 LD B,32
1 230 LD A,3
1 230 LD (HL),A ;
1 230 INC D
1 223,192,255,255
1 220 READ A: IF T<>A THEN STOP
1 220 GO TO 50
1 220 DATA 35j54,237,35,54
1 220 DATA 35,54,237,35,54
1 220 DATA 33,95,251,17,0,91,1,14,0,213,237,176
1 220 POP AF
1 220 LD BC,65533 ;
1 220 DEC B
1 220 POP HL ;
1 220 POP HL
1 220 LD H,A
1 220 LD (DE),A
1 220 LD (ADDR),HL
1 220 DJNZ L0 ;
1 22,7,13,16,1,17,7
1 22,20,1,16,6,17,0
1 213,85,88,0
1 210 LET T=T+(F-65303)*A:NEXT F
1 210 IF LEN n$<6 THEN LET n$=n$+" ": GO TO 210
1 210 DATA 68,62,183,50,109,136,62,201,50,187,154
1 210 DATA 251
1 210 RST #10
1 210 OUT (C),A ;
1 210 LD C,D
1 210 SUB 8
1 210 POP DE
1 210 LD A,(HL) ;
1 210 INC L
1 210 INC D
1 210 DJNZ LK
1 21 30 75 C3 EE F3 ...
1 204,168,166,0
1 201,81,145,0
1 200 READ A: POKE F,A
1 200 INPUT " Name:";n$: IF LEN n$>6 THEN GO TO 200
1 200 DATA 34,85,251,195,0
1 200 DATA 255,81,83,168,168,97,88,152,92,196
1 200 LD A,16 ;(
1 200 LD B,(IX+28)
1 200 LD A,E
1 200 LD E,A
1 200 LD A,H
1 200 LD (DE),A
1 200 DEC H
1 200 CALL SNEG
1 200 ADD HL,BC ;
1 20 RANDOMIZE USR 15619:REM:LOAD"level 0"CODE 40000
1 20 RANDOMIZE USR 15619:REM:CAT #4
1 20 RANDOMIZE USR 15619: REM: LOAD "gens4" CODE a
1 20 RANDOMIZE USR 15619: REM: LOAD "bigprint" CODE
1 20 OUT 65533,3:OUT 49149,5:REM
1 20 LOAD "" SCREEN$: INK 6: PAPER 8: OVER 1: PRINT AT 0,0;: LOAD "" CODE:
1 20 LOAD "" CODE
1 20 LET T=0
1 20 LET E=0 : LET B=1
1 20 LET D=64968: FOR F=1 TO 7
1 20 INK 0: PAPER 0: BORDER 0: CLS
1 20 FOR F=3E4 TO 30063
1 20 FOR F=3E4 TO 30016: READ A: POKE F,A
1 20 FOR F=3E4 TO 30016
1 20 FOR F=16384 TO 16449
1 20 F0 JR NZ,L5CF8 ;R = #27 (#F0-
1 20 ORG 40000
1 20 21
1 2.FIRE+UP/DOWN
1 2.EDITOR SS+FIRE
1 2.10.95.
1 2. Save graphics
1 2- ErCod 1=ReOnly*
1 2 RANDOMIZE USR 23872 :REM:
1 2 27
1 2 39
1 1nov.tx C
1 1996 KOVROV CITY
1 1994 (10 years after)
1 1993 MOSCOW":
1 195,30,100
1 194,2,254,0
1 190 LOOP LD A,(HL)
1 190 LET T=0: FOR F=65313 TO 65319
1 190 DATA 84,251,33,0,64
1 190 DATA 50,81,226,201
1 190 LD BC,49149 ;
1 190 LD DE,#0020
1 190 DJNZ LOOP
1 190 PUSH HL ;
1 190 LD B,1
1 190 LD (HL),A
1 190 JR NC,$+6
1 190 ADD A,32
1 19 22
1 180 DATA 32,147,62,205,50
1 180 DATA 25,7447
1 180 DATA 179,32,225,201
1 180 DATA 151,206,198,199,200
1 180 RST #10
1 180 OUT (C),A ;
1 180 LD L,A
1 180 LD L,A
1 180 LD BC,#4000 ;
1 180 LD B,4
1 180 LD A,E
1 180 INC H
1 180 DJNZ L1
1 18 23
1 170,170,146,0
1 170 LOOP LD A,C
1 170 LKT PUSH DE
1 170 L0 LD (HL),A
1 170 DATA 75,92,17,28,0
1 170 DATA 209,177,144,141,139
1 170 DATA 201,50,255,181,195
1 170 DATA 129,131,146,128,103,221,35,27,122
1 170 LD A,9 ;(
1 170 ADD A,D
1 170 SUB #E0
1 170 POP DE
1 170 LD H,A ;
1 170 INC DE
1 17,33,163,0
1 17 24
1 162,163,164,#FF
1 160 NEXT M
1 160 DATA 255,195,61,255,62
1 160 DATA 243,49,0,0,42
1 160 DATA 173,173,221,119,0,124,203,99,40,3
1 160 DATA 114,252,128,223,181
1 160 RRCA
1 160 LD BC,65533 ;
1 160 LD B,(IX+20)
1 160 LD C,2
1 160 LD A,L
1 160 LD A,#FF
1 160 JR NZ,LOOP
1 160 JR NC,BEGIN ;
1 160 INC HL
1 16 25
1 154,155,156,157
1 150,151,152,153
1 150 READ A: IF T<>A THEN STOP
1 150 PAUSE 0: GO TO 50
1 150 IF A>360 THEN LET A=A-360
1 150 DATA 4,0,237,176,195
1 150 DATA 33,44,64,34,130
1 150 DATA 221,110,0,124,170,171,221,172,221
1 150 RST #10
1 150 RRCA
1 150 OUT (C),A ;
1 150 PUSH DE
1 150 LD B,32
1 150 LD (DE),A
1 150 JR NZ,$+12
1 150 DEC C
1 150 CP #5C ;
1 15 26
1 148,21,1,16,1,17,0
1 147,21,1,16,1,17,0
1 144,160,32,64
1 144,144,80,0
1 1400 BUFF DEFS 7488
1 140 STROKA LD A,D
1 140 RANDOMIZE USR 15619: REM: CAT
1 140 LET T=T+(F-65073)*A:NEXT F
1 140 LET A=A+DA2
1 140 DATA 5,201
1 140 DATA 225,209,59,225,193,205,29,251,24,43
1 140 DATA 117,17,97,253,1
1 140 DATA 0,255,50,107,92
1 140 RRCA
1 140 LD A,%11111101;(
1 140 XOR A
1 140 OR #40 ;
1 140 LD HL,20064
1 140 INC DE
1 140 AND 7
1 140 ADD HL,BC
1 14 15
1 14 27
1 1390 RET
1 1380 LD D,A
1 1370 ADD A,8
1 1360 LD A,D
1 1350 RET C
1 1340 LD E,A
1 1330 SUB 32
1 1320 LD A,E
1 132,136,136,16
1 1310 RET NZ
1 1300 CP 7
1 130 READ A: POKE F,A
1 130 NEXT N
1 130 L1 LD (HL),0
1 130 IF k$<>"1" THEN GO TO 60
1 130 DATA 64,34,59,255,195
1 130 DATA 62,255,55,205,86
1 130 DATA 5,48,241,33,108
1 130 DATA 209,191,55,8,249,233,49,65,251,221
1 130 LD BC,49149 ;
1 130 LD DE,#8B87
1 130 AND #07
1 130 LD A,H
1 130 INC HL
1 130 CALL #0D6B ;
1 130 AND #1F ;
1 130 ADD HL,HL
1 13 16
1 13 28
1 1290 AND 7
1 1280 LD A,D
1 1270 UP_D DEC D
1 127,64,67,95
1 1260 RET
1 1250 LD H,A
1 1240 SUB 8
1 1234509876qwertpoiuyasdfg
1 1230 LD A,H
1 1220 BUFF DEFS 6784
1 1220 RET C
1 1210 RET
1 1210 LD L,A
1 1200 LD D,A
1 1200 ADD A,32
1 120 TEMP DEFB 1,0
1 120 NEXT F: RANDOMIZE USR 64960
1 120 LET T=0: FOR F=65083 TO 65093
1 120 IF k$="4" THEN GO TO 300
1 120 IF A>360 THEN LET A=A-360
1 120 GOTO 60
1 120 DATA 62,255,55,205,86
1 120 DATA 50,58,255,33,32
1 120 DATA 210,34,126,250,225,49,61,251,221,225
1 120 DATA 171,254,17,84,1
1 120 OUT (C),A ;
1 120 LD C,131
1 120 LD A,E
1 120 POP HL
1 120 OUT (#FE),A
1 120 LD B,32
1 120 LD A,H ;
1 120 INC H
1 120 ADD HL,HL
1 12 17
1 12 29
1 1190 LD A,L
1 1190 ADD A,8
1 1180 RET NZ
1 1180 LD A,D
1 1170 RET C
1 1170 AND 7
1 1160 LD E,A
1 1160 LD A,H
1 1150 DWN_H INC H
1 1150 SUB 32
1 1140 RET
1 1140 LD A,E
1 1140
1 1130 RET NZ
1 1130 LDIR
1 1120 LD (HL),71
1 1120 CP 7
1 1110 LD BC,767
1 1110 AND 7
1 1100 LD A,D
1 1100 INC HL
1 110 PRINT "Line ";c;" OK"
1 110 OUT 65533,7:OUT 49149,BIN 11111111:REM
1 110 LET A=A+DA1
1 110 IF k$="3" THEN GO TO 250
1 110 IF A>360 THEN LET A=A-360
1 110 FOR A=15880 TO 15928: POKE S,PEEK A: LET S=S+1: NEXT A
1 110 DATA 75,251,17,52,2
1 110 DATA 34,85,251,62,195
1 110 DATA 205,86,5,221,33
1 110 DATA 112,46,215,116,46,207,54,188,33,38
1 110 LD A,7 ;
1 110 LD H,A
1 110 CALL 2715
1 110 XOR A
1 110 PUSH DE
1 110 POP BC
1 110 LD E,L
1 110 ADD HL,HL
1 11 18
1 11 30
1 1090 UP_D DEC D
1 1090 INC DE
1 1080 RET
1 1080 LDIR
1 1070 LD D,A
1 1070 LD BC,6143
1 1060 SUB 8
1 1060 LD (HL),B
1 106 POKE 30171,237: POKE 30174,239: REM for infinite water
1 1050 LD DE,16385
1 1050 LD A,D
1 105 POKE 30057,97: POKE 30058,230
1 1040 RET C
1 1040 LD HL,16384
1 104 POKE 30168,238: REM for infinite food
1 1030 LDIR
1 1030 LD E,A
1 1020 LD BC,575
1 1020 ADD A,32
1 102 POKE 30165,230 :REM for infinite time
1 1010 LD A,E
1 1010 LD (HL),B
1 1006 DATA "DEC300FA00",667
1 1005 DATA "C7C8AF324D",701
1 1004 DATA "8D8B97CEC6",835
1 1003 DATA "DFB5DlB190",934
1 1002 DATA "FFE3FBE980",1094
1 1001 DATA "CD56052100",329
1 1000 DATA "BF31DAFF37",768
1 1000 RET
1 1000 RET NZ
1 1000 INC DE
1 100 RANDOMIZE USR 33001
1 100 RANDOMIZE USR 25660
1 100 POKE 65175,0: POKE 65099,8
1 100 LET S=135*256: FOR A=15744 TO 15823: POKE S,PEEK A: LET S=S+1: NEXT A
1 100 LET A=A+DA
1 100 IF k$="2" THEN GO TO 200
1 100 IF T-A THEN PRINT "Error in line ";c: STOP
1 100 GO TO 70:REM
1 100 DRAW DX,DY
1 100 DATA 84,251,33,21,105
1 100 DATA 237,176,235,35,35,34,95,250,46,122
1 100 DATA 205,36,97,221,33
1 100 PUSH AF
1 100 OR #58
1 100 LD BC,65533 ;
1 100 LD H,C
1 100 LD D,H
1 100 LD (23624),A
1 100 CALL PRINT
1 10 REM 7-th ORACLE & Sagitdinov R.
1 10 RANDOMIZE USR 40000: PAUSE 0: GO TO 10
1 10 RANDOMIZE USR 15619:REM:OPEN# 4,"CATALOG",W
1 10 RANDOMIZE USR 15619: REM: LOAD "PROG" CODE 40000
1 10 INPUT A : CLS
1 10 INPUT " FILE ACCES ? "; A$
1 10 CLS: PRINT TAB 4;"PLAY CRITICAL MASS TAPE"
1 10 CLEAR 65535: LET T=0
1 10 CLEAR 65535: LET T=0
1 10 CLEAR 65000
1 10 CLEAR 40000: LET T=0
1 10 CLEAR 3E4: LOAD "" SCREEN$
1 10 CLEAR 29999: LET a=30000: REM
1 10 CLEAR 26e3: LET T=0
1 10 CLEAR 25659: LET T=0
1 10 CLEAR 24982: LOAD ""CODE
1 10 BORDER 1: PAPER 1: INK 7: CLEAR 26499
1 10 ;7-th ORACLE & Sagitdinov R.
1 10 19
1 10 31
1 1.kopiroBAniE sprAjtA B mAsku"
1 1.UP/DOWN
1 1.PICTURE OUT
1 1. Create graphics
1 1- First char
1 1 AND 2 MOVE SPRITE <>
1 1 - 6, 9, 7, B, D
1 1 * 28
1 1 * 40
1 01310 opt DEFB 0
1 01300 dens DEFB 0 ;
1 01290 inter DEFB 24 ;
1 01280 kx DEFB 1 ;
1 01270 buf DEFW 0 ;
1 01260 bufer DEFW 63900 ;
1 01250 graph DEFW 27000 ;
1 01240 RET
1 01230 OUT (#5F),A ; STROBE = 1.
1 01220 LD A,1
1 01210 OUT (#5F),A ; STROBE = 0.
1 01200 XOR A
1 01190 JR C,wait
1 01180 RLA
1 01170 IN A,(#5F) ;
1 01160 RET NC
1 01150 RRA
1 01140 IN A,(254)
1 01130 wait LD A,127 ;
1 01120 print OUT (#3F),A ;
1 01110 RET
1 01100 EI
1 01090 CALL print
1 01080 LD A,(inter)
1 01070 CALL print
1 01060 LD A,106
1 01050 CALL print
1 01040 LD A,27 ;
1 01030 CALL print
1 01020 LD A,10
1 01010 CALL print
1 01000 LD A,13 ;
1 00990 CALL print
1 00980 LD A,(inter)
1 00970 CALL print
1 00960 LD A,51
1 00950 CALL print
1 00940 LD A,27 ;
1 00930 OUT (#5F),A
1 00920 LD A,1 ; STROBE = 1.
1 00910 OUT (#7F),A
1 00900 LD A,#98 ;
1 00890 init DI ;
1 00880 RET
1 00870 JR NZ,next
1 00860 XOR D
1 00850 LD A,H
1 00840 JR NZ,next
1 00830 XOR E ;
1 00820 LD A,L ;
1 00810 INC HL
1 00800 CALL print ;
1 00790 next LD A,(HL)
1 00780 LD HL,(bufer) ;
1 00770 prbuf LD DE,(buf) ;
1 00760 RET
1 00750 POP HL
1 00740 LD (buf),HL
1 00730 INC HL
1 00720 LD (opt),A
1 00710 OR (HL) ;
1 00700 LD A,(opt) ;
1 00690 LD (HL),A
1 00680 LD HL,(buf)
1 00670 wbuf PUSH HL ;
1 00660 RET
1 00650 EI
1 00640 JR NZ,loop1
1 00630 DEC B
1 00620 ADD HL,DE
1 00610 LD DE,1792 ;
1 00600 JR NZ,loop2
1 00590 DEC C
1 00580 POP BC
1 00570 ADD HL,DE
1 00560 LD DE,32 ;
1 00550 POP HL
1 00540 CALL prbuf ;
1 00530 CALL wbuf
1 00520 LD A,10
1 00510 CALL wbuf
1 00500 op LD A,13 ;
1 00490 LD (buf),HL
1 00480 LD HL,(bufer) ;
1 00470 JR NZ,op
1 00460 OR A
1 00450 LD A,(opt) ;
1 00440 JR NZ,lp1
1 00430 DEC E
1 00420 ADD HL,BC
1 00410 LD BC,6112 ;
1 00400 JR NZ,lp2
1 00390 DEC D
1 00380 INC HL
1 00370 DJNZ lp3
1 00360 LD H,A
1 00350 SUB 8
1 00340 LD A,H
1 00330 CALL wbuf
1 00320 JR NC,lp4
1 00310 RLA
1 00300 INC H
1 00290 lp4 RLC (HL) ;
1 00280 lp3 LD A,1 ;
1 00270 lp2 LD B,8 ; "
1 00260 lp1 LD D,32 ;
1 00250 LD (opt),A
1 00240 XOR A ;
1 00230 CALL wbuf
1 00220 LD E,A
1 00210 LD A,(kx)
1 00200 CALL wbuf
1 00190 XOR A
1 00180 CALL wbuf
1 00170 LD A,(dens)
1 00160 CALL wbuf
1 00150 LD A,42
1 00140 CALL wbuf
1 00130 LD A,27 ;
1 00120 LD (buf),DE ;
1 00110 LD DE,(bufer) ;
1 00100 PUSH HL
1 00090 loop2 PUSH BC
1 00080 loop1 LD C,8 ;
1 00070 LD B,3 ;
1 00060 LD HL,(graph)
1 00050 DI
1 00040 ORG 26500
1 00030 ENT
1 00020 ; Kharlov A. 1996
1 00010 ; BIGPRINT
1 00000001,00100000,01010000,001100
1 00000001,00000001,00000001,00000010,00000011,00000011,00000011
1 0,2,165,81
1 0,192,164,170
1 0,144,80,89
1 0,128,27,42
1 0,128,213,153
1 0,11,9,145
1 0,1,149,89
1 0,0,18,171
1 .........700
1 ..................64
1 ..................10
1 ...................9000
1 .....................1023
1 ....................................
1 ...............
1 ............
1 . poslE zAprAwiBA-"
1 . ostAlx-"
1 . TRIREME
1 . Spectrum Windows Print
1 . QUINQUEREME -
1 . GREEN TOME
1 . FLUFFIE
1 . EXAMINE RATS
1 . Density:";d;'" 0-60 1-120"'" 2-120' 3-240"'"
1 . CT HEPTARES -
1 . 34-51-37.
1 . (GO AIRLOCK).
1 . (AN AQUALANG),
1 . |
1 .
1 .
1 -uprABlEniE"
1 -PLANKTON-.
1 -BUS DIRECTION 1,2.
1 -----------------------------------------------------------------------------
1 ----------------------------------------------------------------------------
1 ----------------------------------------------------------------------------
1 -------------------------------------------
1 -------- - - - --
1 -(2 3HAKA)";h$:
1 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1 -
1 ,v2;"Press no. of option":
1 ,u6;n;",";
1 ,buf+2048+245
1 ,buf+2048+227
1 ,," KATA
1 ,," CTAH
1 ,," COPT
1 ,#D8 ;5.03
1 ,#8E ;5.01
1 ," bright(0-1)",0
1 ," paper(0-7)",0
1 ," flash(0-1)",0
1 , turn cog 2) -
1 , ZX FORUM'94 -
1 , WRITE SYSTEM
1 , U, U, E, N),
1 , TED, FINAL WORD
1 , Spectrum 48
1 , GYPER GUN
1 , DA0-DA7
1 , Copy K -
1 , AGILITY).
1 , AEGYPTUS MONACHUS".
1 , A CAGED FLUFFIE -
1 , 23867 (#5D3B),
1 , "FILE 3",
1 , Lords of Time
1 , BASIC Microsoft, ADA,
1 +Horizontal
1 +5+5+5kVjV
1 +*))('&%%$#""!
1 +"W\#"S\"K\6
1 *fors3.txC
1 *bj:ejGO:dj
1 *START TAPE
1 *START TAPE
1 *SPRITE INSERTING
1 *SPRITE DELETING
1 *MYSTERIOUS ADVENTURE N11:
1 *FILE EXISTS
1 *ERIC THE VIKING.
1 *DR.WHAT,
1 *ANIMATION
1 **************************************************************************
1 ***********************************************************************
1 **********************************************************************
1 *************************************************************
1 **********************************************************
1 *******************************************************
1 **************************************************
1 *************************************************
1 *********************************************
1 ********************************************
1 *******************************************
1 ****************************************
1 ********************************":
1 ********************************"
1 ********************************
1 ************************
1 * C=2
1 * C=1
1 * C=0
1 * C=#16
1 * C=#15
1 * C=#14
1 * C=#13
1 * C=#12
1 )Horizontal
1 )GMR Ltd. Garbuzov
1 );a$(a+l,15
1 );" ";a$(a+l,11
1 ) Garbuzov Alex
1 ) -
1 ) -
1 )
1 )
1 (wind clock) -
1 (open door)
1 (i*i+j*j):
1 (c) Garbuzov Alex MOCKBA 1992
1 (buf+2048+244),
1 (buf+2048+229),
1 (buf+2048+228),
1 (buf+2048+225),
1 (a-u,1-774)
1 (Satyr).
1 (STRAINER)
1 (SOME WIRE).
1 (SOME BIRDS).
1 (SMOKE PIPE),
1 (R0-R15).
1 (PULL WIRE)
1 (NEGATIVE).
1 (MasTer Debuger).
1 (HALF PENCE)
1 (Empty Pot),
1 (EXTEND) osnoBnoE MEnq"
1 (CORVUS),
1 (CODE A$(G-2)>57))
1 (Borland Inc)
1 (965 bytes) *
1 (095) 490-14-26
1 ((n-a)/k)+((n-a)/k
1 ((n-a)/k))
1 'CONVER-Utility' & Y.Kovalevsky
1 '+'P'+'Q'+'A'+Space+Enter).
1 ''" EXTEND MODE-B
1 %0111 1111 1111 1101,
1 $fors2.txC
1 $SPACE EQU $
1 #E0,#D8,#D8,#00
1 #C0,#D8,#70,#00
1 #BC,#B0,#1E,#00
1 #9C80 1B 0B 78 B1 20 F0 C9 00
1 #9C78 1A 67 7D 12 7C E1 77 23
1 #9C70 11 FF 5A 01 80 01 E5 6E
1 #9C68 0B 78 B1 20 DC 21 00 58
1 #9C60 D1 12 7C E1 77 1B 23 C1
1 #9C58 06 08 CB 1D CB 14 10 FA
1 #9C50 1D CB 14 10 FA 7C EB 6E
1 #9C48 0C C5 E5 D5 6E 06 08 CB
1 #9C40 21 00 40 11 FF 57 01 00
1 #9581 3E5B LD A,#5B
1 #9581 3E0B LD A,#0B
1 #8DA5 3E5A LD A,#5A
1 #8DA5 3E0A LD A,#0A
1 #60,#60,#60,#00
1 #0C,#0C,#0C,#00
1 #01,#19,#0F,#00
1 #00,#3F,#0C,#0C
1 #00,#0F,#18,#0F
1 #00,#00,#D8,#D8
1 #00,#00,#70,#D8
1 #00,#00,#6C,#76
1 #00,#00,#1C,#32
1 #"a\"c\"e\>82
1 "spredit2"
1 "sa pri pomowi oknA
1 "qtsa mAskA,cBEt i kolihEstBo."
1 "pulse.w1" -
1 "pulse.w$" -
1 "posrEdstBEnnym zAdAniEm rAzmE-"
1 "level 0"
1 "drivprof"
1 "Tooth Fairy" -
1 "There can only be one".
1 "TASWORD", "PASCAL", "GENS",
1 "T.L.W.+"
1 "RESTORES THE"
1 "PULSE.WR" -
1 "PULSE.W"
1 "PULSE WARRIOR ".
1 "PENTAGON'
1 "NO 128K MEMORY!":
1 "NAME",Y$:
1 "NAME",U$:
1 "KAPTOTEKA
1 "Joe Blade II"
1 "JOYSTICK CLUB")
1 "INSERT DISK"
1 "HAVE BEEN"
1 "FILE ACCES?"
1 "FILE 2".
1 "ELITE", "TAU CETI"),
1 "Basic Text".
1 "Alex MOCKBA 1992"
1 "AND PRESS
1 "0)030!0,0" 8
1 ","*-FX128 ",
1 ", A, E - "
1 "(c) Garbuzov "
1 "(4!.cpopxp
1 """" """"
1 " Spectrum`
1 " READ ONLY !"
1 " PROTECT"
1 " PROGRAM"
1 " DISK ERROR!"
1 " - 72194
1 " (ORNAMENT),
1 " (ARIOLASOFT,1987)
1 " ink(0-7)",0
1 " B KAPTOTEKE ";n;"
1 " HA
1 " ";G$;:
1 !LOAD FILE:
1 }p5p=pMpUp] eP
1 | |
1 zAdEPvki pErEd ABtopoBtorom"
1 wargames),
1 unicolor.com .
1 time machine
1 s nadpisx`: zdelal simen
1 progrAmmy:
1 obra}ajtes
1 movno ustAnoBitx B
1 mon.com .
1 extview.txt (
1 exesp.com (24000).
1 exesp.com
1 dBASE II,
1 dAET KombinAcia
1 chisel, wrench,
1 ZX-Spectrum 128 (
1 ZX-Spectrum
1 ZX-FORUM-1,
1 ZX Spestrum.
1 ZX Spectrum'e,
1 ZX Spectrum" (ZX
1 ZX Spectrum
1 ZX LPRINT,
1 ZX LPRINT III
1 ZX LPRINT
1 ZX FORUM,
1 ZX Spectrum,
1 Yaztromo,
1 Yaztromo
1 Yabushi,
1 Y-CTPAT","Z-
1 X, y, Len
1 Write System
1 Windows,
1 Windows),
1 Windows (
1 Warcraft'
1 WINDOWS,
1 WHO'S TRYDIS
1 WHATCH THE STONES,
1 WHAT'S LAB.
1 WATCH THE STONES.
1 WARNING!
1 W-BOEH","G-
1 V 1.08!`1
1 UNPOISON.
1 TurboPascal, TurboBasic
1 TurboPascal
1 Thanks to Rst7 for TASM 3.0 (MASM
1 TURBO PASCAL 3.2.
1 TRICKS ZX.
1 TRANSF -
1 TR-DOS ATM-turbo - #F100,
1 TR-DOS -
1 TOWER ENTRANCE.
1 TOTAL ECLIPSE-2 (
1 TOBOS FP.
1 THEODOLITE,
1 THEBES-B
1 THEBES-A,
1 THE VATS,
1 THE STORE
1 THE SCEPTRE
1 THE PASSAGE.
1 THE PASSAGE
1 THANATOS (FLYING DRAGON)
1 TEMPLE OF TERROR.
1 TASM, MASM -
1 TASM 128
1 TASM (MASM)
1 T-TPEXM","X-
1 Super Brain ,
1 Stone Quay,
1 Spectrume.
1 Spectrum,
1 Spectrum BASIC
1 Spectrum (48k).
1 Spectrum
1 Small Hinged
1 Slime Rocks,
1 Since Fiction, a Special Fonter).
1 Sheltered Cave
1 Scorpion.
1 Scorpion,
1 Scorpion ZS 256
1 SYMBOL SHIFT...
1 SWP (Spectrum Windows Print).
1 SURRENDER - "
1 SUPERCALC, DBASE, SUPERTEXT,
1 STS (v3.2 or v3.3) or MTD
1 STRENGTH).
1 STRENGTH - FEEBLE (
1 STORE ROOM.
1 STONE TREE (SHAKE TREE).
1 STICK, EGG, TALISMAN, ONION
1 STEEL GIRDER.
1 STEEL GIRDER (TIE WIRE TO GIRDER).
1 STARQUAKE.
1 SP_OR, SP_XOR, SP_AND).
1 SPRITE OUTPUT
1 SPRAY CAN.
1 SPI.
1 SMALL KEY.
1 SLARTY BARTFAST'
1 SKELETON WARRIOR'
1 SKAYFOX).
1 SHORT ROPE
1 SCREWDRIVER
1 SANCTUM.
1 SAM ON OUR MIDNIGHT
1 Ruined Building
1 Red Moon
1 RST 56 (38H).
1 ROCKY XX TICKET)
1 REPAIR SHIP
1 REPAIR SAIL -
1 REM : LOAD "ind_ay"CODE
1 READ PAPER,
1 READ ONLY !
1 RANDOMIZE USR <
1 RANDOMIZE USR 15619:REM:
1 RANDOMIZE USR 0.
1 RANDOMIZE
1 R0-R13, (R14,R15
1 QUADREME -
1 QUADREME
1 Price of Magic -
1 PRUNEFACE.
1 PRUNEFACE'
1 PRUNEFACE LAB
1 PROFI 3+,
1 PRESS RED, PRESS BLUE,
1 POWER GUN
1 PORT, AFT, PORT
1 PIED PAPER &
1 PIECE OF PAPER.
1 PHILLIPS,
1 PERSUADE,
1 PCX, GIF.
1 PC MOUSE),
1 PATTERN,
1 PAPER. BRIGHT
1 PAINT BRUSH
1 Outland Corp
1 Op;@;pOpO
1 OUTI, OTIR,
1 OUT (XX),A
1 OUT (#FE),A.
1 ORNAMENT EDITOR'
1 OR, XOR; H=255
1 OMEGA LTD."
1 OLD FASHIONED SLOT MACHINE (EXAMINE SLOT)
1 Norton Commander:
1 NOSING AROUND,
1 Microsoft,
1 Microsoft (
1 Malbordus'
1 Malbordus
1 MONACHUS.
1 MING'S ARMOURY,
1 MARSPORT.
1 MANIFESTO
1 Ltd. MOSCOW
1 Lords of Time
1 Lords of Time:
1 Level 9, Lords of Time
1 Level 9
1 LOAD / SAVE.
1 LIFEBOAT
1 LEONARDO
1 LEGIONS OF DEATH
1 LD BC,#EE5C,
1 LD A,...
1 Kempston-
1 KEMPSTON MOUSE.
1 KEMPSTON JOYSTIK.
1 KEMPSTON JOYSTIK'
1 KEMPSTON
1 JOKER 1,
1 JAKESVILLE.
1 J -
1 Inside Building,
1 Import TASM 2.0.
1 IS-DOS?".
1 INVENTORY.
1 IM 0, IM 1, IM 2.
1 IBM PC),
1 IBM PC , 8-
1 I SURRENDER -
1 Halls of Mirrors.
1 HP4TM16,
1 HOW MANY TIME?
1 HOMEP?";N2
1 HL- WORD_20.
1 HL- FLENG+1.
1 HIGH HALL
1 Grand Hall,
1 Grand Crouix
1 GYPER GUN,
1 GUARDIAN' .
1 GROVEL -
1 GRAPNEL.
1 GRAPNEL (
1 GRAPHICS.
1 GO TO 110
1 GENS-MONS
1 GAME OVER,
1 GAME OVER
1 Fortran, PL/M, PL/1, Fort, TurboPascal, TurboC,
1 FLICK RAINS.
1 FLASHLIGHT (Small Torch).
1 FLASH FENWICK'
1 FLASH BOREDOM.
1 FCommander 3.07
1 F3 DI
1 Export.
1 EXAMINE TOOTH
1 EXAMINE SEATS
1 EXAMINE GUY
1 EXAM MIRROR): "
1 ENTER DOOR.
1 ENDURANCE.
1 ENDURANCE).
1 EMERALD ISLAND
1 EGG, CHARM
1 E-TOKKEN,
1 Dogfighter'
1 DRAG LOG.
1 DR.WHERE).
1 DR.WHEN).
1 DR.WHAT,
1 DR.'a WHAT.
1 DR'y WHY.
1 DON'T LOOK DOWN,
1 DISPLAYS TO NORTH & WEST.
1 DISK ERROR!
1 DID I HEAR STEPS?
1 DID I HEAR STEPS?
1 DEVPAC).
1 DEPOSIT -
1 DD2.1, DD2.2, DD3.2
1 DAA (#27).
1 DA4-DA7,
1 D37,D38 (555
1 D$="" THEN LET ADR=49152: GO TO
1 Copy K v.4.1
1 Coming soon from us: MasTer Debuger
1 Cemetryz Wood -
1 CUT ROPE
1 CUSTOMIZE C5.
1 CUSTOMIZE C5,
1 CREDITS). mov
1 CP/M V3.1.
1 COMMAND.
1 CLIMB CANOE
1 CLIFF FACE,
1 CHEAT MODE
1 CENTRY DROID'
1 CENTRONICS,
1 CD,B4,5F CALL #5FB4 ;
1 CALL adress).
1 CALL START
1 CALL BAR6.
1 CALL 38H),
1 CALL #66.
1 CALL #3D13
1 C3,33,F2 JP F233 ;
1 C,H,E,A,T
1 Basic-48 (
1 BY THE PROGRAM
1 BREAK COBWEB),
1 BOXN.
1 BORDER 1 (
1 BOGON SPACESHIP.
1 BEWARE BOGONS.
1 BEWARE BOGONS,
1 BEWARE BOGONS
1 BEGIN...END'o
1 BC
1 BASILISK'
1 BASIC - USR 15616)
1 BASEBALL CAP.
1 BASEBALL BAT
1 BACK EXIT.
1 Artificial
1 Al Kwasaki.
1 Al Kwasaki.
1 AYE AYE,
1 AY-3-8912/8912
1 AY-3-8910
1 ATM-turbo,
1 ATM-turbo
1 ATM-Turbo
1 ARTIFACT.
1 ARCADE-ACTION,
1 ANALIZATOR.
1 ALT IBM).
1 AGILITY -
1 AEGYPTUS MONACHUS
1 AEGYPTUS
1 ADVENTURE & RPG (
1 ADD HL,HL,
1 ADD HL,HL)
1 ADD HL,HL
1 ADD A,A.
1 A=164 (AND H)
1 A7 +
1 A7
1 A6 + A8 #FDBF
1 A6 + A14 #7FBF
1 A6 + A12 #DFBF
1 A6 + A10 #F7BF
1 A5 +
1 A5
1 A4
1 A2
1 A1=0 A15=1
1 A1=0 A14=0
1 A1 + A15
1 A0 + A8
1 A CAGED FLUFFIE
1 A -
1 990 POP HL
1 990 AND 7
1 980 PUSH DE
1 980 LD A,D
1 970 DWN_D INC D
1 970 DJNZ L1
1 960 RET
1 960 CALL DWN_H
1 96/4-5 ,
1 96/1-2,4-5,6)
1 950 POP HL
1 950 LD H,A
1 95/6 (MUGY).
1 940 SUB 8
1 940 POP BC
1 930 LDIR
1 930 LD A,H
1 920 RET C
1 920 LD BC,32
1 910 PUSH BC
1 910 LD L,A
1 900 L1 PUSH HL
1 900 - 930
1 900 ADD A,32
1 90 M3 PUSH BC
1 90 LET S=S+DS
1 90 LET DY=L*SIN(A/180*PI)
1 90 L0 PUSH BC
1 90 RET Z
1 90 PUSH BC
1 90 LD (23693),A
1 9 D39 (555
1 890 LD B,192
1 890 LD A,L
1 880 RET NZ
1 880 LD HL,16384
1 870 LDIR
1 870 AND 7
1 860 LD BC,768
1 860 LD A,H
1 850 DWN_H INC H
1 850 LD DE,BUFF
1 840 RET
1 840 LDIR
1 830 LD BC,6144
1 830 DJNZ L1
1 820 LD DE,16384
1 820 CALL DWN_H
1 810 POP HL
1 810 LD HL,BUFF
1 800 POP BC
1 800 LDIR
1 80 LET DX=L*COS(A/180*PI)
1 80 DRAW DX,DY
1 80 PUSH HL
1 80 OR L
1 80 LD HL,#4806 ;
1 80 LD B,11
1 80 LD A,#07
1 8, A, C, E.
1 8, A, C, E
1 790 LDIR
1 790 LD (HL),A
1 780 LD BC,767
1 780 LD BC,32
1 770 PUSH BC
1 770 LD DE,22529
1 760 L1 PUSH HL
1 760 LD HL,22528
1 750 OUT (254),A
1 750 LD B,192
1 740 INIT XOR A
1 740 LD HL,16384
1 730 RET
1 730 LDIR
1 720 PASS1 DJNZ LOOP2
1 720 LD BC,639
1 710 LD (HL),A
1 710 HALT
1 700 LD HL,BUFF
1 700 JR NC,PASS1
1 70 LOOP LD A,(HL)
1 70 LET DY=S*SIN(A/180*PI)
1 70 FOR J=1 TO N
1 70 LD L,(HL)
1 70 LD DE,23264
1 70 LD B,#63 ;
1 70 HALT
1 690 PASS3 CP 65
1 690 LD DE,BUFF+1
1 680 OUT (254),A
1 680 LD A,B
1 670 INIT XOR A
1 670 CALL UP_D
1 660 RET
1 660 JR NC,PASS3
1 65533(#FFFD).
1 650 PASS1 DJNZ LOOP2
1 650 CP 193
1 64K (BASIC-48, BASIC-128, TR-DOS
1 640 LD A,B
1 640 HALT
1 630 POP BC
1 630 JR C,PASS1
1 620 POP DE
1 620 CP 140
1 610 SBC HL,BC
1 610 LD A,B
1 600 POP BC
1 600 AND A
1 60 LET DX=S*COS(A/180*PI)
1 60 FOR I=1 TO M
1 60 XOR A
1 60 PUSH BC
1 60 LD HL,22528
1 60 LD C,8
1 60 CALL #0D6B ;
1 6-13 AY-3-8910,
1 6,10,13 D38
1 6, 3, 5.
1 590 SBC HL,BC
1 590 LD BC,32
1 580 EXT POP HL
1 580 AND A
1 570 L7 LD BC,32
1 570 JR NC,L2
1 560 CP 64
1 560 CALL DWN_D
1 550 LD A,D
1 550 JR NC,L7
1 540 INC B
1 540 CP 64
1 530 POP BC
1 530 LD A,D
1 520 SBC HL,BC
1 520 CALL UP_D
1 510 PASS3 POP HL
1 510 AND A
1 500 POP DE
1 500 DJNZ L3
1 50-50-50 -
1 50 M2 LD B,20 ;
1 50 LK PUSH DE
1 50 OUT (#FE),A
1 50 LD BC,15360
1 50 LD (VAR),HL
1 5.01, 5.02
1 490 PUSH IX
1 490 LDDR
1 480 LD BC,31
1 480 JR C,EXT
1 470 POP IX
1 470 LD (HL),71
1 460 DEC DE
1 460 CP 64
1 46 (SAY 46).
1 450 POP HL
1 450 LD A,D
1 440 PUSH DE
1 440 CALL UP_D
1 430 POP HL
1 430 LD D,A
1 420 PUSH DE
1 420 POP DE
1 410 POP BC
1 410 OR 88
1 400 LDDR
1 400 AND 3
1 40 M1 LD C,8
1 40 LK LD (TEMP),HL
1 40 LET S=<
1 40 LET A=90: LET DA1=360/N: LET DA2=360/M
1 40 LD HL,0
1 40 LD B,8
1 40 LD (23624),A
1 390 RRCA
1 390 LD BC,32
1 39 AY-3-8910, 2
1 38H (56)
1 380 RRCA
1 380 PUSH BC
1 370 RRCA
1 370 PUSH DE
1 36096 (#8D00)
1 360 L3 PUSH HL
1 360 LD A,D
1 350 L2 PUSH BC
1 350 JR NZ,PASS3
1 340 POP DE
1 340 AND 7
1 330 POP HL
1 330 LD A,D
1 320 EXT POP DE
1 320 POP BC
1 310 LDDR
1 310 JR C,L2
1 31,B3,5C LD SP,#5FB3 ; CLEAR 24499
1 300 LD BC,32
1 300 CP 88
1 30 PATTERN
1 30 LET L=<
1 30 LET DA=<
1 30 PUSH HL
1 30 LD HL,TEXT
1 30 LD DE,16384
1 30 LD (23693),A
1 30 CALL SNEG
1 3 MASTER DROID'
1 290 LD D,A
1 290 LD A,D
1 280 OR 88
1 280 INC B
1 27455-27524
1 270 POP BC
1 270 ADD HL,DE
1 27, 28, 29 AY-3-8910, 18,19,20
1 260 LD HL,BUFF
1 260 ADD HL,BC
1 26 AY-3-8910,
1 256-
1 255 (#FF).
1 255 (#FF) -
1 25344 (#6300).
1 250 LD D,A
1 250 DJNZ L3
1 25(17) AY-3-9810 (AY-3-8912).
1 24500. RAMTOP
1 24000. 40100
1 240 PUSH IX
1 240 PUSH BC
1 24 AY-3-8910,
1 23872 (#5D40),
1 23828 (#5D14)
1 23814 (#5D06) -
1 23814 (#5D06)
1 23808/23809
1 23807 (#5CFF)-
1 23802 (#5CFA) +
1 23801 (#5CF9).
1 23801 (#5CF9)
1 23800 (#5CF8)
1 23798 (#5CF6)
1 23773 (#5CDD);
1 23773 (#5CDD),
1 23773 (#5CDD)
1 23773 (#5CDD)
1 23296 (#5
1 230 PUSH HL
1 230 JR NC,EXT
1 23 AY-3-8910, 16
1 220 PUSH DE
1 220 POP IX
1 22 AY-3-8910, 15
1 210 TEXT DEFS 1
1 210 CP 88
1 210 AND 3
1 21,B4,5F LD HL,#5FB4 ;
1 21,00,40 LD HL,#4000 ;
1 200 RRCA
1 200 LD A,D
1 20 START LD HL,TXT
1 20 LET N=<
1 20 LET A=90: REM
1 20 BEGIN LD HL,(TEMP) ;
1 20 BEGIN LD HL,(TEMP)
1 20 BEG LD HL,(ADDR)
1 20 BEG LD DE,16384
1 20 LD B,5
1 20 LD A,#3F
1 1996.
1 1993 ShiSoft":
1 1991 KORDIAL";
1 190 RRCA
1 190 CALL DWN_D
1 180 RRCA
1 180 POP HL
1 170 POP DE
1 170 LD A,D
1 16384 (#4000).
1 16384 (#4000)
1 16341 (16331),
1 16314 (16304)."
1 160 POP BC
1 160 JR NZ,L2
1 150 - 180
1 150 LDDR
1 150 AND 7
1 141 (#8D)
1 140 LD BC,32
1 140 CPL
1 14-21 AY-3-8910, 7-14
1 130 PUSH BC
1 130 LD A,D
1 129 (#81).
1 128 (# 80)
1 127 (#7F),
1 120 PUSH DE
1 120 JR NC,L2
1 12.04.1780
1 1170 end
1 1120 - 1230,
1 110 L3 PUSH HL
1 110 CP 193
1 1000000$,
1 100 L2 PUSH BC
1 100 LD BC,256+32
1 10 LET M=<
1 10 LET DS=<
1 1,20,50,30
1 1 RANDOMIZE USR 61630: RANDOMIZE USR a
1 01,05,65 LD BC,#6505 ; 101
1 01,05,1B LD BC,#1B05 ; 27
1 00 PUSH HL
1 0...255,
1 0,1,2; 3,4; 5,6,7.
1 -MY DYING BRIDE- THE BEST D
1 - Tall guard'
1 - STARFOX (
1 - GENS -
1 - Farthest Shore.
1 - ABRACADABRA, PLUGH
1 - 24575 (#5FFF)).
1 - 1953 (SAY 1953).
1 - "FILE 1").
1 - "Convoy detected".
1 *WITCH CAULDRON
1 *VENTURAMA,
1 *THE SCEPTRE
1 *THE LEGEND OF APACHE GOLD.
1 *SWORDS & SORCERY.
1 *STREET HASSLE
1 *SLAINE THE KING.
1 *SEYMOUR AT THE MOVIES.
1 *RETURN TO EDEN.
1 *MINDFIGHTER.
1 *MASTER OF MAGIC,
1 *MAGNETIC MOON
1 *LIVINGSTONE 2.
1 *LANCELOT'
1 *IRON MAN
1 *GOLDEN APPLE.
1 *FAMOUS FIVE
1 *DIZZY-6.
1 *CRYSTAL QUEST
1 *****************************************************************************
1 ***************************************************************************
1 **************************************************************************
1 ************************
1 (wisdom)
1 (exam picture).
1 (ZX-MANIACS)
1 (Windows by
1 (WEIGHT BRACELET).
1 (WAVE TUBE)
1 (TRINITROTOLUENE).
1 (TIE WIRE TO DOORWAY)
1 (THROW WOOD).
1 (THROW WIRE INTO HOLD).
1 (THROW GRAPNEL) -
1 (THE DOG)
1 (THE BATHROOM).
1 (TEAR COBWEB
1 (TAPE -> DISK).
1 (SYRUNGE),
1 (SWIM) -
1 (SUPPORT PLATE WITH
1 (STRONG).
1 (SMOKE PIPE).
1 (SLAVES).
1 (SHAVE DVARF)
1 (SAY JAKE).
1 (RS-232C),
1 (ROADHOG TAPE).
1 (READ MAP).
1 (PUSH RAFT WITH BENCH).
1 (PUSH GRILLE).
1 (PLAY FLUTE),
1 (PLANT FRUIT)
1 (PIPERS FLUTE).
1 (PHOTON, LIGHT SABRE),
1 (OR, XOR, AND)
1 (OPEN BAG).
1 (OLD LAMP).
1 (N, E, N, N, W, W, S, S)
1 (Minotaur)
1 (MIRROR)
1 (MARINES),
1 (MAGIC PLACES),
1 (LIGHT TORCH).
1 (LASER GUN, LIGHT SABRE, LASER PISTOL, 4 LASER
1 (LASER GUN, LIGHT SABRE, 4 LASER PACK-1).
1 (LASER GUN, LIGHT SABRE,
1 (LASER GUN, LIGHT SABRE)
1 (LADDER).
1 (JAR of Dr.Dodgy's miracle cure).
1 (INSERT COIN)
1 (INNOCENT),
1 (Hercules),
1 (HOOK GRAPNEL ONTO PORT)
1 (HIT GLASS
1 (GUILTED)
1 (GREEN TOME),
1 (GO GRID)
1 (FOOLISH)
1 (FOLLOW TRACKS).
1 (FIRE CROWN).
1 (FEED RATS).
1 (EXAMINE TOILETS)
1 (EXAMINE TELEPHONE)
1 (ENTER WAGON)
1 (ENTER MINE),
1 (DR.WHY, DR.WHAT, DR.WHEN
1 (DIG PIT).
1 (DAGGER OF
1 (Cyclops),
1 (CUT GLASS WITH CUTTER),
1 (CUT GIRDER WITH CUTTER).
1 (CUPBOARD)
1 (CROWBAR)
1 (COVER MOUTH)
1 (CONVINCED)
1 (CONTENDERS).
1 (CLIMB OUT PORT).
1 (CHARM).
1 (CANDLE).
1 (C.S.=#E3, S.S.=#0E, ENTER=#0D)
1 (BOX OF MATCHES).
1 (BIOS).
1 (BENCH STICK,
1 (B,C,D,@)
1 (ARCHERS),
1 (A=0, CPL => A=255)
1 (????????)
1 (512x240).
1 (3 LASER GUN),
1 (3 LASER GUN)
1 (27,*,x),
1 (1)
1 (0=OR, 1=XOR, 2=AND)
1 ("SIM SITY",
1 'Mothership
1 'DISK DOKTOR'
1 & MASTERSOFT
1 #FE(I=254)
1 #FE(254),
1 #DF (%1101 1111),
1 #C000 - #FFFF.
1 #8000 - #BFFF
1 #5CF4 / 5CF5 (
1 #1F(I=31)
1 #1F(31),
1 #1F (%0001 1111),
1 #19 - 40-
1 #18 - 80-
1 #17 - 40-
1 #16 - 80-
1 #0205),
1 #00 - #FF.
1 "pulse.w1"
1 "level0 "
1 "grandfather clock" -
1 "active''.
1 "ZX Spectrum & TR-DOS
1 "Worm in Paradise".
1 "Worm in Paradise").
1 "WYATT BURP.
1 "UM SOCK IT TO ME BABY".
1 "Tractor beam locked on",
1 "Tortoice",
1 "Time and Magic".
1 "TRUST ME".
1 "TAPE <-> DISK" (
1 "STARFOX" (Afiolasoft, 1987).
1 "SIM SITY", "ELITE",
1 "SCORPION'
1 "ROM-Drive"
1 "RLC HL"
1 "RED HEAT" (
1 "Power Play",
1 "Power Play",
1 "Planet detected',
1 "OPTION SELECTOR'
1 "Norton Commander",
1 "Mathership in visual range" - "
1 "M1 LOADING"
1 "Locate On".
1 "Level complete".
1 "Last Battle"
1 "LOAD")
1 "L-COPY"
1 "Knight Orc",
1 "JUMP TABLE TO TABLE" -
1 "It's too small. It'll die if you pick it".
1 "Game Over"
1 "Fuel ship detected'.
1 "FILE 3";
1 "FILE 3" -
1 "FILE 1",
1 "FCommander
1 "Emerald Isle"? "Who died
1 "ELITE" (
1 "DISK DOCTOR",
1 "DEAD WARRIOR".
1 "DCU 2.31"
1 "DCU 2.02"
1 "CP" ( 1->, 2->),
1 "CATALOG"
1 "BALANCE YOUR OPTIONS IF YOU
1 "Autopilot inactive"
1 "Allosaurus"!)
1 "ATM-turbo".
1 "ATM-turbo (2,2+),
1 "ARTSTUDIO",
1 "ARTIST 2",
1 "AIR ON A BOW STRING".
1 "(c) 1991 Piter ltd., Leningrad".
1 "$&(+-/2479<?ADGJMORUX[^adgjmptwz}
1 " P.W.",
1 " OPTION SELECTOR".
1 " KEY IS GOLD DOWN THE PIT".
1 |
1 proizBoditsa oknom":
1 pri BXodE B MEnq BybirAqtsa"
1 pErEmEwEniE linzy"
1 hotq tut lu^
1 ZX Spectrum
1 Windows
1 THIS PROGRAM
1 SOUND TRACKER'a.
1 SAMPLE EDITOR'e
1 PICASSO
1 OUT (#FD),A
1 ON/OFF.
1 Level 9.
1 LD A,R.
1 LD A,...; OR ...
1 Def Add (23563),
1 AND ...
1 90 DATA 238,238,2388,0,238,238
1 90 LD BC,256+32
1 90 LD A,B
1 80 RANDOMIZE USR INIT
1 80 PUSH HL
1 80 PUSH DE
1 8, C - "
1 70 RANDOMIZE USR NEXT: PAUSE 1
1 70 PUSH HL
1 70 PUSH DE
1 60 RANDOMIZE USR INIT
1 50 FOR Y=8 TO 21: PRINT AT Y,2
1 50 LD B,212
1 50 LD B,192+18
1 40 RESTORE 90: FOR N=0 TO 7: R
1 40 LD HL,BUFF+6143+640
1 40 LD HL,BUFF+6143+576+768
1 33 LET NEXT=VAL N$
1 32768!!! (
1 32 INPUT "NEXT "; LINE N$: IF
1 31 LET INIT=VAL I$
1 30 INPUT "INIT "; LINE I$: IF
1 23828 (#5D14)
1 20 RANDOMIZE USR 15619: REM :
1 17 LET ADR=VAL D$
1 16 INPUT "ADRES "; LINE D$: IF
1 15 INPUT "FILENAME "; LINE A$
1 10 INK 7: PAPER 0: BORDER 0: C
1 / * - + & ',
1 #60-#7F (
1 "The game of the
1 "COPY-COPY"
1 " pulse.w$" - 27
1 v3.0 (by
1 V
1 RAM,
1 LP3 EX AF,AF'
1 LP2 OR %10000000
1 LP1 OR %00010000
1 II. LD A, config
1 I. LD A, config III. LD REG, config
1 BEGIN.....END
1 Amiga, Amstrad, Atari 8-bit, BBC, Commodore 64, Lynx, Memotech
1 30 NEXT I
1 20 PRINT IN I, "I="; I
1 10 FOR I=0 TO 254
1 1,1,1,2,3,3,3 HEX
1 ***********************************************************************
1 (095) 446-55-90
1 ( #65 ).
1 Write,
1 Spectrum forever !!!
1 ScaleScale inc Start Link Displac Rotation Rot. inc Cycles
1 Q:SHELL\exesp T:
1 PUSH BC
1 POP BC
1 LD C,02
1 JR NZ,L1
1 CP #0D ;
1 BREAK
1 A>#90,
1 <NN>
1 215 XOR A
1 2048 (#0400)
1 1 2 3 4 5 6
1 - - - - - - - - - - -
1 ***********************************************************************
1 ****************************************************************
1 add -
1 Z (COPY) -
1 Y -
1 XOR A
1 X (CLEAR) -
1 TRIREME
1 TREES
1 THEBES-C:
1 Sh -
1 STONE CANNONBALL
1 SS+W (<>) -
1 SS+S -
1 SS+Q (<=) -
1 SS+I -
1 SS+E -
1 SS+D -
1 SS+CS (EXTEND MODE) -
1 SS+A -
1 SS+7 -
1 SS+0 -
1 SPARE DROID BODY -
1 SELQUET-B:
1 S -
1 RUMOUR.
1 RL (HL) ;VAR3
1 RETURN -
1 REMOTE DROID -
1 REDO -
1 RAMTOP
1 QUINQUEREME
1 QUADREME
1 Photo-electric cells trigger Display
1 POP BC
1 OSIRIS-D:
1 ORG 40000
1 ORG 30000
1 O (FORMAT) -
1 NOTHING
1 MAXIMUM -
1 LD HL,16384
1 LD E,192
1 LD D,0 ;VAR1
1 LD B,16
1 LD A,4
1 LD A,3 ;
1 LD A,2 ;
1 LD A,(23560)
1 JR NZ,LOOP
1 JR NZ,L2
1 JINX-B:
1 INC HL
1 G -
1 F -
1 ENT $
1 DR.WHY
1 DR.WHERE
1 DJNZ L4
1 DJNZ L3
1 DJNZ L1
1 DEC E
1 DD1- K555
1 Col -
1 CT HEPTARES
1 CS+9 -
1 CS+9 (GRAPHICS) -
1 CS+8 -
1 CS+8 (
1 CS+7 -
1 CS+7 (
1 CS+6 -
1 CS+6 (
1 CS+5 -
1 CS+5 (
1 CS+4 (Inv. Video) -
1 CS+3 (True Video) -
1 CS+2 (Caps Lock) -
1 CS+1 (EDIT) -
1 CS+0 -
1 CS+0 (DELETE) -
1 CP 32
1 COPY -
1 COMPUTER
1 CALL SONG
1 CALL SCROLL ;
1 CALL MAIN_EFFECT
1 CALL ANALIZATOR ;
1 BUY -
1 BIREME
1 ATTEMPT -
1 ACTUAL -
1 A voice says: "Say the Year of Happened"
1 >>>>>>>>>> #3D13 ( 15635 ). <<<<<<<<<<<<
1 9
1 8
1 7 (ERASE) -
1 7
1 60 SAVE "vent2" CODE 25000, 36072
1 6 (MOVE) -
1 6
1 50 RANDOMIZE USR 15619: REM: ERASE "vent2" CODE
1 5 (CLOSE) -
1 5
1 40 NEXT N
1 4. ORDERS (
1 4 (OPEN) -
1 4
1 30 POKE N,0
1 3. GO -
1 3. GO
1 3
1 20 FOR N=27455 TO 27524
1 2. LOOK -
1 2. LOOK
1 2) CP/M
1 2
1 13
1 12
1 11
1 10 LOAD "vent2" CODE 25000
1 10
1 1.4. RETURN -
1 1.4. RETURN
1 1.3. STATUS -
1 1.3. STATUS
1 1.2.4. RETURN
1 1.2.3. LOAD -
1 1.2.2. SAVE -
1 1.2.1. NEW GAME -
1 1.2. TAPE.
1 1.2. TAPE
1 1.1.4. RETURN
1 1.1.3. SPEED.
1 1.1.3. SPEED
1 1.1.2. COURSE -
1 1.1.2. COURSE
1 1.1.1.4. RETURN
1 1.1.1.3.4. RETURN
1 1.1.1.3.3.4. RETURN
1 1.1.1.3.3.3. REPAIR SAIL
1 1.1.1.3.3.2. REPAIR SHIP
1 1.1.1.3.3.1. BUY
1 1.1.1.3.3. REPAIR
1 1.1.1.3.2. DEPOSIT
1 1.1.1.3.1. COLLECT
1 1.1.1.3. GOLD
1 1.1.1.2. SAILS
1 1.1.1.1. SWITCH MENU
1 1.1.1. SWITCH MENU
1 1.1. SWITCH MENU.
1 1.1. SELECT.
1 1.1. SELECT
1 1. ORDERS -
1 1. ORDERS
1 1) ZX-Spectrum 128/48
1 1
1 0
1 - WEIGHT (
1 - STRENGTH (
1 - STAND AND DELIVER.
1 - STAMINA (
1 - SPAR TIME (STAMINA).
1 - ROAD WORK (
1 - RECOVERY (
1 - LIGHT BAG (
1 - INFORMATION.
1 - HEAVY BAG (
1 - GROVEL.
1 - GO AWAY.
1 - EVALUATE THIS.
1 - ENDURANCE
1 - BOAST.
1 - ATTITUDE (
1 *SNOWBALL.
1 *SMOK WAWELSKI.
1 *SHADOWS OF MORDOR.
1 *SAM SPOON.
1 *QUEST ADVENTURE.
1 *MAGNETIC MOON 1.
1 *ID -
1 'CLOSE'
1 #DF -
1 #9F -
1 #5F -
1 #1F -
1 "-" -
1 "," -
1 "+" -
1 "*" -
1 "#" -
1 |
1 XOR A ;
1 OUT (#FE),A ;
1 OUT (#FE),A
1 ORG 30000
1 LENGHT:
1 LD IX,(23563) LD IX,adr
1 LD A,(23560);
1 JR NZ,LOOP ;
1 HALT ;
1 D7 -
1 D6 -
1 D4
1 D3
1 D2
1 D1
1 CP 32
1 CALL SCROLL ;
1 A15=1
1 40
1 4-80 5-72"'" 6-90"'" 4. Print"
1 27
1 12
1 1. 63872,0-
1 1. 63761,N: 63797,N-
1 1. 62141,182: 65057,182-
1 1. 61768,0-
1 1. 60200,0-
1 1. 59490,0-
1 1. 58654,0
1 1. 57267,182-
1 1. 56749,0-
1 1. 56117,0-
1 1. 56033,0-
1 1. 55589,183-
1 1. 55183,0-
1 1. 54464,0-
1 1. 54297,0-
1 1. 54188,201-
1 1. 54001,0: 53709,0: 54865,0-
1 1. 53033,N-
1 1. 52576,201: 31950,0-
1 1. 52364,183: 43940,0: 48950,182
1 1. 52155,0-
1 1. 51742,0-
1 1. 51634-
1 1. 51454,182-
1 1. 50955,0
1 1. 50619,O-
1 1. 50274,0
1 1. 50262,0
1 1. 50187,0-
1 1. 49384,0: 49444,0-
1 1. 48380,0: 48400,0-
1 1. 48002,183-1
1 1. 47250,0
1 1. 47023,0
1 1. 46963,0
1 1. 46926,127: 42815,0: 42812,0
1 1. 46766,0-
1 1. 45986,0-
1 1. 45717,N-
1 1. 42718,0
1 1. 42417,0-
1 1. 42277,0
1 1. 42241,0: 42253,O-
1 1. 41330,0-
1 1. 41191,N: 54002,N: 54119,N: 41190,N-
1 1. 40811,0-
1 1. 40315,0-
1 1. 39819,0-
1 1. 38518,03...09-
1 1. 38202,0-
1 1. 37998,0-
1 1. 37847,N-
1 1. 37317,0
1 1. 37049,183-
1 1. 37042,0-
1 1. 36720,0: 37450,0-
1 1. 35934,0-
1 1. 35477,255
1 1. 35172,0-
1 1. 34939,0: 34940,195-
1 1. 34631,0
1 1. 34247,0: 34274,0
1 1. 33067,0-
1 1. 32885,N-
1 1. 32477,0-
1 1. 32382,0-
1 1. 32362,255
1 1. 32310,0
1 1. 31814,0-
1 1. 31595,24-
1 1. 31055,0-
1 1. 31007...9,0-
1 1. 30192,201-
1 1. 29910,0-
1 1. 29603,0-
1 1. 29422,0-
1 1. 29286,0-
1 1. 28468,183-
1 1. 28053,201-
1 1. 27434,0-
1 1. 26984,24: 26985,2-
1 1. 26840,0-
1 1. 26455,0-
1 -1":
1 "LOAD")
1 XOR A ;
1 SUB 8
1 SBC HL,BC
1 SBC HL,BC
1 RET Z
1 RET ;
1 RES 5,A
1 PUSH BC A,D,E,H,L,XL,XH,YL,YH
1 POP BC
1 OUT (C),A OUT (C),REG
1 OUT (C),A
1 ORG 24000
1 OR C
1 OR #58
1 LDIR
1 LD BC, #JFFD LD BC, #JFFD
1 LD BC, #JFFD
1 LD L,B ;B*C=HL
1 LD L,A
1 LD IX,$SPACE
1 LD HL,ext
1 LD HL,L1^ ;
1 LD HL,L1
1 LD HL,L0^+3 ;
1 LD HL,L0^ ;
1 LD HL,COLOR ;
1 LD HL,$SPACE ;
1 LD HL,$SPACE
1 LD HL,#0000
1 LD DE,XY
1 LD DE,8 ;
1 LD DE,5 ;
1 LD DE,32
1 LD DE,14 ;
1 LD D,8
1 LD C,(HL)
1 LD C,#43 ;
1 LD C,#37 ;
1 LD C,#36 ;
1 LD C,#29 ;
1 LD C,#25 ;
1 LD C,#10
1 LD C,#07 ;
1 LD BC,5 ;
1 LD BC,#0003
1 LD B,E
1 LD B,C
1 LD B,8
1 LD B,(HL) ;
1 LD A,H
1 LD A,B
1 LD A,130 ;
1 LD A,#F4 ;
1 LD (mnem^),A
1 LD (addr^+1),HL
1 LD (L0^+1),HL ;LD HL,COLOR
1 LD (HL),#D9 ;EXX
1 LD (HL),#21 ;
1 LD (HL),#00 ;NOP
1 LD L,A
1 LD H,A
1 LD B,E
1 LD A,L
1 JR Z,L0
1 JR Sp_out ;
1 JR NZ,Exit
1 JR NZ,L2_0
1 JR NZ,L0_0
1 JR C,L0_0
1 INC HL
1 INC H
1 EXX PUSH BC
1 EXX POP BC
1 EX (SP),HL
1 DJNZ mul0
1 DJNZ L1_1
1 DJNZ L0_1
1 DJNZ L3_0
1 DEFM "UnCo" ;
1 DEFB #01 ;
1 DEC D
1 CP "W"
1 CALL TestCol ;
1 CALL Memory ;
1 CALL Begin
1 BEGIN <NN>
1 AND A ;
1 AND 7
1 AND #18
1 AND #03
1 AND A
1 AND 7
1 ADD HL,DE
1 ADD HL,BC ;
1 ADD A,D
1 ADD A,C
1 ADD A,#40
1 ADD A,32
1 8
1 6
1 2
1 ..... .....
1 .....
1 .... ;<---
1 -5":
1 "pulse.w1" - 101
1 !
1 XOR A ;
1 XOR D ; HL=
1 XOR D ;
1 XOR A ;
1 XOR A ;
1 XOR A
1 XOR #1F ;
1 SUB 4
1 SUB L ADD HL, BC
1 SUB E ;
1 SUB #20 ;
1 SUB #08 ;
1 SRL H
1 SLA A
1 SLA (HL) ;
1 SCF ;
1 Russia, Moskow, 12.10.95.
1 RRCA ;D,E
1 RRA ;
1 RRA
1 RLA ;
1 RL (HL) ;
1 RL (HL)
1 RET Z ;
1 RET Z ;
1 RET NZ ;
1 RET NZ
1 RET ;
1 RET ;
1 RET ;
1 PUSH IX ;
1 PUSH HL
1 PUSH AF ;
1 PUSH IX ;
1 PUSH HL ;
1 PUSH DE ;
1 PUSH BC ;
1 POP DE
1 POP IX ;IX=
1 POP DE ;DE=
1 POP DE ;
1 POP DE
1 POP BC ; BC )
1 POP BC ;
1 POP AF ; CALL AUTOPR.
1 ORG 65005 ;
1 ORG 41000
1 ORG 40000
1 OR D
1 OR #58
1 OR D
1 OR A ;
1 OR A
1 OR (HL)
1 NOP
1 LDIR ; (
1 LD L,A
1 LD L,(IX+1)
1 LD IX,(TABLE)
1 LD HL,TABLE2 ;
1 LD HL,TABLE1 ;
1 LD HL,CRDS+1
1 LD HL,BUFFER_2 ;
1 LD HL,BUFFER_1 ;
1 LD HL,(CRDS) ;
1 LD HL,#5D27 ;
1 LD HL ,#5C00 ;
1 LD H,A POP BC
1 LD H,A
1 LD H,0
1 LD E,STEP
1 LD E,A
1 LD DE,#5CFB ;
1 LD DE ,BUFFER ;
1 LD DE ,#5C01 ;
1 LD D,A ;
1 LD D,254
1 LD D,190
1 LD C,A
1 LD C,#0E ;
1 LD BC,#32
1 LD BC,#20 ;
1 LD BC ,#01F4 ;
1 LD BC ,#01F3
1 LD A,L ;
1 LD A,H
1 LD A,D
1 LD A,255 ;
1 LD A,1 ;
1 LD A,(LEVEL) ;
1 LD A,(IX+1) ;
1 LD A,#C9 ;
1 LD A,#83 ;
1 LD A,
1 LD A ,#FF ;
1 LD A ,#C9 ;
1 LD (TABLE),HL ;
1 LD (OPC1),A ;
1 LD (OPC),A ;
1 LD (OPC),A
1 LD (IY+00),#FF ;
1 LD (HL),L
1 LD (CRDS),DE
1 LD (5CC2),A ;
1 LD (#5D0C),A ;
1 LD (#5CE4),A ;
1 LD (#5CC8),A
1 LD (#5CC2),A ;
1 LD (#5C65),HL ;
1 LD (#5C3A),A ;
1 LD L,A PUSH BC
1 LD L,C ;
1 LD L,(IX+36) ;
1 LD IX,TBL_OR ;IX=
1 LD IX,(#5C0B) ;IX=
1 LD IX,#0000 ; SF
1 LD HL,BUFF
1 LD HL,50000
1 LD HL,22528 ;
1 LD HL,16384
1 LD HL,0001
1 LD HL,(INCR) ;
1 LD HL,(#EEDF)
1 LD HL,#ECB2
1 LD HL,#4000 ;
1 LD H,B ;H=
1 LD H,A ;------------------------
1 LD H,A ; E=Y-
1 LD H,A ;
1 LD H,(IX+37) ;
1 LD H,#02 ;
1 LD H,#00 ;
1 LD E,A ;
1 LD E,A ;
1 LD E,1 ;
1 LD E,(IX+12) ;Y-
1 LD DE,FONT ;
1 LD DE,CHAR ;
1 LD DE,6912
1 LD D,A ;
1 LD D,(IX+4) ;X-
1 LD D,#00 ;
1 LD C,B ;
1 LD C,(IX+28) ;
1 LD C,#00 ;
1 LD BC,32 ;32
1 LD BC,#FEFE ;
1 LD B,SYM_COL ;
1 LD B,E ;
1 LD B,A ;
1 LD B,A
1 LD B,(IX+20) ;
1 LD B,#07 ;
1 LD B,#04 ;
1 LD A,H ;
1 LD A,H ;
1 LD A,E ;------------------------
1 LD A,E ;
1 LD A,E ;
1 LD A,E
1 LD A,D ;
1 LD A,C
1 LD A,6 ;
1 LD A,180 ;
1 LD A,172 ;
1 LD A,164 ;
1 LD A,(SHIFT) ;
1 LD A,(SHIFT)
1 LD A,(PLACE) ;
1 LD A,(IX+44) ;
1 LD A,(HL) ;A=
1 LD A,(HL) ;
1 LD A,(HL)
1 LD A,(DE) ;
1 LD A,%11111111
1 LD A,%10000000 ;
1 LD A,%00000000 ;
1 LD A,#BF ;
1 LD A,#08 ;
1 LD (SHIFT),A
1 LD (MODE_5),A ;
1 LD (MODE_4+2),A ;
1 LD (MODE_3+1),A ;
1 LD (MODE_2),A ;
1 LD (MODE_0+1),A ;
1 LD (JUMPER+1),A ;
1 LD (HL),A ;
1 LD (HL),#FE ;
1 LD (HL),#40
1 LD (HL),#00 ;
1 LD (DE),A ;
1 LD (DE),A ;
1 LD (BUFF),HL ;
1 LD (BITE),A ;
1 LD (#FE6A),HL
1 LD (#FE69),A
1 JR Z,PROGRAM ;
1 JR Z,PROG ;
1 JR Z,L1 ;
1 JR Z,BAR5 ;
1 JR QO
1 JR NZ,PROPOPC ;
1 JR NZ,EXIT
1 JR COND1 ;
1 JR BAR6
1 JR Z,SYMBOL ;
1 JR Z,SCREEN
1 JR Z,NOSHFT ;
1 JR Z,LP_DEF ;
1 JR Z,LOOP2 ; SYM_COL.
1 JR Z,GOPS5 ;
1 JR Z,GOPS3 ;
1 JR Z,GOPS1 ; A=172 (XOR H)
1 JR PRINT
1 JR NZ,SHIFT0 ;
1 JR NZ,L3 ;
1 JR NZ,L1
1 JR NC,GOTR2;
1 JR MASK
1 JR L4
1 JR C,SHIFT0 ;
1 JR C,L2 ;
1 JR C,GOTR1 ;
1 JR C,GOPS4 ;
1 JR C,GOPS2 ;
1 JR C,GOPS1 ; A=180 (OR H)
1 JR C,END ;
1 JP NZ,LPPS3; "
1 JP NZ,LPPS1; "
1 JP GOPS4 ;-------------------
1 JP GOPS2 ;--------------------
1 JP #F103 *
1 INC HL ;
1 INC A
1 INC L ;
1 INC IX ;
1 INC HL ; SWP.
1 INC HL ;
1 INC H ;
1 INC H ;
1 INC E ;
1 INC E
1 INC DE ;
1 INC DE ;
1 INC DE
1 INC D ;
1 INC C ;
1 INC (HL) ;
1 IN A,(31)
1 IN A,(C) ;
1 EX DE,HL
1 EX DE,HL ;DE=
1 EX AF,AF' ;A=
1 EX AF,AF' ;
1 EX (SP),HL ;
1 ENT $
1 ENT
1 DJNZ FILL1 ;
1 DJNZ SHIFT2
1 DJNZ SHIFT1
1 DJNZ SCREEN1
1 DJNZ ROW
1 DJNZ MOVE1
1 DJNZ MASK2
1 DJNZ MASK1
1 DJNZ MADE ;
1 DJNZ LPTR2 ;
1 DJNZ LPTR1 ;
1 DJNZ LPPS4 ;
1 DJNZ LPPS2 ;
1 DJNZ LOOP1 ;
1 DJNZ L1
1 DJNZ FIND
1 DJNZ COLUMN
1 DI
1 DEFB "HELLO, WORLD!"
1 DEC HL
1 DEC B
1 DEC H ;
1 DEC E
1 DEC DE
1 DEC A
1 DD1.1 DD1.2
1 CPL ; AF'=255,
1 CPL ;
1 CPL ;
1 CPL
1 CP L ;
1 CP L
1 CP H
1 CP D
1 CP 2 ;
1 CP 1 ;
1 CP 1
1 CP C ;
1 CP 1 ;
1 CP #58
1 CP #09 ;
1 CALL Z,PROG1 ;
1 CALL Z,PROG
1 CALL START1 ;
1 CALL START1
1 CALL START ;
1 CALL PRINT
1 CALL FORM
1 CALL FILL ;
1 CALL BFSCR
1 CALL BAR1 ;
1 CALL BAR ;
1 CALL #3D13 ;
1 CALL Z,NEXT
1 CALL TYPE ;
1 CALL PRINT ;
1 CALL MOVE
1 CALL AUTOPR
1 CALL #F110 *
1 BIT 4,C
1 BIT 3,C
1 BIT 2,C
1 BIT 1,C
1 BIT 0,C
1 BIT 7,A ;
1 AND 7 ; INK
1 AND 7
1 AND 56
1 AND #18
1 AND D ;
1 AND C ;
1 AND C
1 AND #5F ; D=X-
1 AND #1F ;
1 AND #1F ;
1 AND #07 ;
1 AND #07
1 ADD HL,HL
1 ADD HL,DE
1 ADD A,L
1 ADD A,H
1 ADD A,B
1 ADD A,#31 ;
1 ADD IX,DE ;
1 ADD HL,DE ;
1 ADD HL,DE
1 ADD A,C ;
1 ADD A,A ;
1 ADD A,#05 ;
1 ADC A,H LD BC, #
1 ;HL:
1 ;D: X-
1 ;B:
1 ;A:
1 23
1 11
1 0
1 ... ;
1 #FEBF
1 #FE7F............................#7F7F
1 #FBBF
1 #F7 -
1 #EFBF
1 #BFBF
1 #B7 -
1 #77 -
1 #37 -
1 !
1 ||
1 | (
1 |
1 RET NZ
1 PUSH BC ;
1 PUSH HL
1 PUSH DE
1 PUSH BC
1 POP BC ;
1 POP DE
1 ORG #9C40
1 New turbo algoritms..90%
1 New turbo algoritms..10%
1 LDIR ;
1 LD SP,STEK ;
1 LD IY,(ADRES) ;
1 LD HL,FILENAME ;
1 LD HL,BUFFER ;
1 LD DE,(#5CF4) ;
1 LD DE,#5CDD ;
1 LD DE,#5C00 ;
1 LD C,05 ;
1 LD C,05 ;
1 LD C,01 ;
1 LD BC,9 ;
1 LD BC,256 ; 1
1 LD BC,164
1 LD BC,#01F4 ;
1 LD B,1 ;
1 LD B,01
1 LD A,03
1 LD A,02
1 LD A,0
1 LD (ADRES),DE ;
1 LD HL,#0360
1 LD A,(#5CDD)
1 LD HL,#5800
1 LD HL,#4000
1 LD H,A
1 LD DE,#5AFF
1 LD DE,#57FF
1 LD BC,(LARGE)
1 LD BC,(LAR)
1 LD BC,#C00
1 LD BC,#180
1 LD B,(HL)
1 LD A,L
1 LD A,0
1 LD A,(DE)
1 LD (LARGE),BC
1 LD (LAR),BC
1 JR START
1 JR PP2
1 JR P2
1 JR NZ,CYKL
1 JR NZ,ATR
1 JP... ;
1 INFORMATION FOR BRAKERS
1 EX DE,HL
1 DJNZ START1 ;
1 DJNZ MET
1 DJNZ LOOP2
1 DJNZ LOOP1
1 CP ...
1 CALL #3D13 ;
1 CALL #3D13
1 A>RUN "MASM128K" <Enter>
1 9.CREDITS & COMING SOON:
1 9
1 8.
1 7.
1 6
1 6
1 52321,0-
1 47947,183-2
1 42012,N-
1 4
1 2.
1 /\
1 ...........
1 ... ;
1 -----------------------
1 + A9
1 + A15
1 + A14
1 + A13
1 + A12
1 + A11
1 + A10
1 (
1 "
1 | | |
1 sp :Q:SHELL\exesp /w
1 XPC-
1 XOR A
1 XC -
1 VETKA -
1 TEST2-
1 TEST1-
1 SUB 1
1 SUB %00100000
1 SUB %00001000
1 SUB %00000001
1 SH -
1 SBC HL,DE
1 SBC HL,BC
1 PUSH BC
1 POP DE
1 POP BC
1 POP DE
1 POP BC
1 POP AF
1 OUT (C),A
1 ORG #F3EE ;
1 ORG #F3D3
1 ORG #F3A8
1 OR A
1 OR A
1 NUM-
1 LD L,E
1 LD IX,#4000
1 LD HL,CUP
1 LD HL,23292
1 LD HL,23291
1 LD HL,23290
1 LD HL,#401F;
1 LD H,C
1 LD H,0
1 LD E,L
1 LD E,7
1 LD E,5
1 LD E,32
1 LD E,3 ;
1 LD E,0 ;
1 LD E,(HL)
1 LD DE,VETKA
1 LD DE,32
1 LD DE,#0020
1 LD D,3
1 LD D,(HL)
1 LD C,COLOUR
1 LD C,8
1 LD BC,63488
1 LD BC,224
1 LD B,A
1 LD B,191
1 LD B,16
1 LD A,L
1 LD A,9
1 LD A,8
1 LD A,7
1 LD A,10
1 LD A,(XPC)
1 LD A,(XC)
1 LD A,(SH)
1 LD A,(HL)
1 LD A,#FB
1 LD A,#7F
1 LD A,#3D
1 LD (IY+87),0
1 LD L,A
1 LD HL,(L2+1)
1 LD HL,#0000
1 LD H,A
1 LD E,A
1 LD DE,#22E8 ;
1 LD DE,#0036 ;
1 LD D,A
1 LD C,#07
1 LD C,#06
1 LD B,8
1 LD A,(HL) ;
1 LD A,%00000101
1 LD A,#20
1 LD A,#09
1 LD (L2+1),HL ; 54
1 LD (L1+2),HL ;
1 LD (HL),A
1 LD (#F59A),HL
1 LD (#F0CA),HL
1 LD (#F0C6),HL
1 LD (#F0C6),DE
1 LD (#F0C4),DE
1 JR Z,UP
1 JR Z,FIRE
1 JR Z,DOWN
1 JR OPR1
1 JR NZ,PROD
1 JR NZ,LOOP1
1 JR C,PROD
1 JR Z,TAB
1 JR PTBL_3
1 JR NZ,TAB
1 JR NZ,PTBL_1
1 JR NZ,LF3D9
1 JR NZ,LF3AE
1 JR NZ,LF3A8
1 JR NC,PTBL_5
1 JR NC,PTBL_4
1 JR NC,LP3
1 JR NC,LP2
1 JR NC,LP1
1 JP (HL)
1 JP #F4FB
1 IOB0-IOB7 (
1 IOA0-IOA7 (
1 INC HL
1 INC H
1 INC H
1 IN A,(C)
1 EX DE,HL
1 EX AF,AF'
1 EX DE,HL
1 EX AF,AF'
1 EI
1 DJNZ PTBL_2
1 DJNZ MM
1 DJNZ LOOP2
1 DJNZ L1
1 DI
1 DEFW; ADR2
1 DEFW;
1 DEFW;
1 DEFW;
1 DEC L
1 DEC C
1 DEC HL
1 DEC DE
1 DEC D
1 DEC A
1 DD1.3 +5B 1
1 DA0/DA7-
1 CUP-
1 CP 5
1 CP 0
1 CP 32
1 CP #20 ;
1 CP #20
1 CP #18
1 CP #0D
1 CP #09
1 CLOCK(
1 CALL Z,STIR
1 CALL Z,PR
1 CALL Z,LF3D2
1 CALL #F7DE
1 CALL #F39E
1 CALL #56A
1 BDIR, BC2, BC1 (
1 AND H
1 AND 15
1 AND 7
1 AND %00011111
1 AND %00000111
1 AND #18
1 ADD HL,HL
1 ADD HL,DE
1 ADD A,32
1 ADD HL,DE
1 ADD HL,BC
1 ADD A,E
1 ADD A,#40
1 3.
1 1.
1 - --------- ---------
1 (#5D00/#5D01) -
1 'HL'
1 '
1 #FF).
1 " pulse.w$"
1 RANDOMIZE USR 23600
1 3.
1 23823 (#5D0F).
1 23823 (#5D0F)
1 2.
1 1.
1 01,
1 0
1 -
1 *AIG* & KSA SOFTWARE
1 ****************************************************
1 '
1 #08 -
1 #0
1 Z
1 LDIR
1 LD SP,STACK ; '
1 LD HL, ADRES ;
1 LD DE,#5CDD ;
1 LD C,8 ;
1 LD C,05 ;
1 LD BC,9 ;
1 LD BC,(#5CE9) ;
1 LD A,C ;
1 JP START ;
1 JP NZ,NO_FIND ;
1 DEFM "C" ;
1 CALL #3D13 ;
1 BIT 7,C ;
1 65503 (#FFDF) -
1 64479 (#FBDF) -
1 64223 (#FADF) -
1 1. O
1 *AIG* productions:
1 ***********************************************************
1 3.1.
1 DD2- K555
1 D6 -
1 D5 -
1 D4 -
1 D3 -
1 D2 -
1 D1 -
1 D0 -
1 SUB (HL)
1 RET
1 PUSH AF
1 POP AF
1 LD B,8
1 LD A,9 ;
1 LD A,(HL)
1 LD (HL),D
1 LD (HL),A
1 JR NZ,MIR_1
1 INC HL
1 DJNZ MIR_2
1 DEC A
1 COPYRIGHT BY
1 6.
1 5.
1 3.
1 1.
1 "
1 ORG #5D40 ;
1 N_
1 CREDITS:
1 CALL #3D13
1 4.
1 ****************************************
1 (
1 ^
1 PROFI 3+ vs SCORPION,ATM etc...
1 3.2. CP/M
1 2.
1 +5
1 PLAY SON6 : 40006
1 INIT SON6 : 40000
1 DELAY SET : 40000 + 1084 = 41084
1 3.3.
1 (
1 TEST 1
1 150052
1 ----------
1 POKE 62628,24: POKE 62629,5
1 BURRY McGUIAN WORLD CHAMPION
1 (
1 POKE 64501,40
1 IOB7
1 IOB6
1 IOB5
1 IOB4
1 IOB3
1 IOB2
1 IOB1
1 IOB0
1 IOA0
1 ----
1 * * *
1 (C/SH+BREAK)
1 DD2
1 4.
1 V
1 ; 1
1 ;
1 (C) 1987 Lothlorien
1 ; TRDOS
1 26
1 SAVE "gensedit" CODE 61630,3906
1 SAVE "gens4" LINE 10
1 POKE 62781,24: POKE 62782,5
1 LEGIONS OF DEATH
1 LD (ADR+1), HL
1 JP ADR + 9
1 ;
1 ;
1 (
1 ; ART STUDIO
1 ;
1 ; 6912
1 ; #05
1 AY-3-8919
1 ;
1 AY-3-8910
1 -
1
1
1
1
1
1
1